X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=toke.c;h=8f5795a1b2d98940af17f021421e5bcc805fc3a1;hb=d002ef56a2861d995ba1887bd9f3d10c8c74d149;hp=3c3e0ad2e24727fdd9437708332ef6eb35ccc05b;hpb=11baf631abf5da1e2bdc887ea9586fd365c82fce;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/toke.c b/toke.c
index 3c3e0ad..8f5795a 100644
--- a/toke.c
+++ b/toke.c
@@ -4287,7 +4287,10 @@ Perl_yylex(pTHX)
 	BOop(OP_BIT_XOR);
     case '[':
 	PL_lex_brackets++;
-	/* FALL THROUGH */
+	{
+	    const char tmp = *s++;
+	    OPERATOR(tmp);
+	}
     case '~':
 	if (s[1] == '~'
 	    && (PL_expect == XOPERATOR || PL_expect == XTERMORDORDOR))