From: Roca, Ignasi <ignasi.roca@fujitsu.siemens.es>
Date: Thu, 11 Jan 2001 12:53:36 +0000 (+0100)
Subject: [Patch perl@8375] pragma/subs.t ......FAILED tests 1-2 using Bison's parser
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d8ae67563df20ade634a53f13f534f31c6a0d46d;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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;
 }