From: Dave Mitchell <davem@fdisolutions.com>
Date: Sun, 1 Apr 2007 01:22:20 +0000 (+0000)
Subject: Eliminate the use of PL_curforce outside of toke.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=90e3715fae5c61e6e1833dc9ad520176419400f4;p=p5sagit%2Fp5-mst-13.2.git

Eliminate the use of PL_curforce outside of toke.c

p4raw-id: //depot/perl@30821
---

diff --git a/perl.c b/perl.c
index 67a7907..e18d5cc 100644
--- a/perl.c
+++ b/perl.c
@@ -411,10 +411,6 @@ perl_construct(pTHXx)
     PL_timesbase.tms_cstime = 0;
 #endif
 
-#ifdef PERL_MAD
-    PL_curforce = -1;
-#endif
-
     ENTER;
 }
 
diff --git a/toke.c b/toke.c
index 920b6d2..a9e3d88 100644
--- a/toke.c
+++ b/toke.c
@@ -655,6 +655,7 @@ Perl_lex_start(pTHX_ SV *line)
 	}
     }
     SAVEI32(PL_curforce);
+    PL_curforce = -1;
 #else
     if (PL_lex_state == LEX_KNOWNEXT) {
 	I32 toke = PL_nexttoke;