toke.c: move leftbracket label

The only code path that goesto leftbracket was precede by s--.
The first thing leftbracket did was s++.

We can simplify the code slighty by moving the label down one
statement and not s--ing before goingto leftbracket.

diff --git a/toke.c b/toke.c
index 84685b0..02b6b86 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -5687,8 +5687,8 @@ Perl_yylex(pTHX)
        }
        TERM(']');
     case '{':
-      leftbracket:
        s++;
+      leftbracket:
        if (PL_lex_brackets > 100) {
            Renew(PL_lex_brackstack, PL_lex_brackets + 10, char);
        }
@@ -6024,7 +6024,6 @@ Perl_yylex(pTHX)
 #endif
                t++;
            if (*t == '\n' || *t == '#') {
-               s--;
                PL_expect = XBLOCK;
                formbrack = TRUE;
                ENTER;