From: Dave Mitchell <davem@fdisolutions.com>
Date: Sat, 12 May 2007 20:06:41 +0000 (+0000)
Subject: eliminate a stray PL_lex_state
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5afb0a623b9b99b8da0168b2f2a3030d9165d7ff;p=p5sagit%2Fp5-mst-13.2.git

eliminate a stray PL_lex_state

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

diff --git a/toke.c b/toke.c
index 83e43bf..efa2e10 100644
--- a/toke.c
+++ b/toke.c
@@ -681,7 +681,7 @@ Perl_lex_start(pTHX_ SV *line, PerlIO *rsfp, bool new_filter)
     parser->nexttoke = 0;
 #endif
     parser->copline = NOLINE;
-    PL_lex_state = LEX_NORMAL;
+    parser->lex_state = LEX_NORMAL;
     parser->expect = XSTATE;
     parser->rsfp = rsfp;
     parser->rsfp_filters = (new_filter || !oparser) ? NULL