diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-05-12 20:06:41 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-05-12 20:06:41 +0000 |
| commit | 5afb0a623b9b99b8da0168b2f2a3030d9165d7ff (patch) | |
| tree | 6ea9c1cde6cdf07abe7739e0d92b605f5753ef7e /toke.c | |
| parent | 7c4baf47da775f39e368d242f76a86f4e592cb5a (diff) | |
| download | perl-5afb0a623b9b99b8da0168b2f2a3030d9165d7ff.tar.gz | |
eliminate a stray PL_lex_state
p4raw-id: //depot/perl@31202
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |