This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Set PL_expect less often when parsing semicolons
[perl5.git] / toke.c
diff --git a/toke.c b/toke.c
index b0e9518..13c7e93 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -5379,7 +5379,8 @@ Perl_yylex(pTHX)
            TOKEN(0);
        CLINE;
        s++;
-       OPERATOR(';');
+       PL_expect = XSTATE;
+       TOKEN(';');
     case ')':
        if (!PL_lex_allbrackets && PL_lex_fakeeof >= LEX_FAKEEOF_CLOSING)
            TOKEN(0);