toke.c: Un-special case something

[perl5.git] / perly.y

diff --git a/perly.y b/perly.y
index 3440dcb..7d57dea 100644 (file)
--- a/perly.y
+++ b/perly.y
@@ -143,7 +143,7 @@ grammar     :       GRAMPROG
                          PL_eval_root = $3;
                          $$ = 0;
                          yyunlex();
-                         parser->yychar = YYEOF;
+                         parser->yychar = yytoken = YYEOF;
                        }
        |       GRAMBARESTMT
                        {
@@ -155,7 +155,7 @@ grammar     :       GRAMPROG
                          PL_eval_root = $3;
                          $$ = 0;
                          yyunlex();
-                         parser->yychar = YYEOF;
+                         parser->yychar = yytoken = YYEOF;
                        }
        |       GRAMFULLSTMT
                        {
@@ -167,7 +167,7 @@ grammar     :       GRAMPROG
                          PL_eval_root = $3;
                          $$ = 0;
                          yyunlex();
-                         parser->yychar = YYEOF;
+                         parser->yychar = yytoken = YYEOF;
                        }
        |       GRAMSTMTSEQ
                        {