This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
skip an op/range.t test under -Dusemallocwrap=no
[perl5.git] / perly.act
index 20f89b7..73c44e5 100644 (file)
--- a/perly.act
+++ b/perly.act
@@ -54,7 +54,7 @@ case 2:
                          PL_eval_root = (ps[0].val.opval);
                          (yyval.ival) = 0;
                          yyunlex();
-                         parser->yychar = YYEOF;
+                         parser->yychar = yytoken = YYEOF;
                        }
 
     break;
@@ -74,7 +74,7 @@ case 2:
                          PL_eval_root = (ps[0].val.opval);
                          (yyval.ival) = 0;
                          yyunlex();
-                         parser->yychar = YYEOF;
+                         parser->yychar = yytoken = YYEOF;
                        }
 
     break;
@@ -94,7 +94,7 @@ case 2:
                          PL_eval_root = (ps[0].val.opval);
                          (yyval.ival) = 0;
                          yyunlex();
-                         parser->yychar = YYEOF;
+                         parser->yychar = yytoken = YYEOF;
                        }
 
     break;
@@ -1977,6 +1977,6 @@ case 2:
     
 
 /* Generated from:
- * 5646c76b3536061de3b69eb5df829f5643d09247aa0d249bf2d2e050594b3679 perly.y
+ * a8b5527eacb1205d15c8c01acb4a8f99b494e5b453ddd68a2a2e7fca4be3302a perly.y
  * 153cba5d215c1a083a0459c43f4d55c45fd0a7093c197d7247a456dcde21ea53 regen_perly.pl
  * ex: set ro: */