[Patch perl@8375] pragma/subs.t ......FAILED tests 1-2 using Bison's parser

Message-ID: <5930DC161690D2119667009027157547038123E1@madt009a.siemens.es>

p4raw-id: //depot/perl@8413

diff --git a/toke.c b/toke.c
index c6ef8e9..6285084 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2090,7 +2090,8 @@ Perl_yylex_r(pTHX_ YYSTYPE *lvalp, int *lcharp)
 
     r = Perl_yylex(aTHX);
 
-    yyactlevel--;
+    if (yyactlevel > 0)
+       yyactlevel--;
 
     return r;
 }