Eliminate the use of PL_curforce outside of toke.c

p4raw-id: //depot/perl@30821

1 files changed, 1 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index 920b6d2819..a9e3d880a0 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;