diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-05-05 17:38:12 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-05-05 17:38:12 +0000 |
| commit | bc177e6b66d4907a90c81f2862ce55ad78b6496f (patch) | |
| tree | c5d5a48ea379b96c206696e7091532a97420284c /pp_ctl.c | |
| parent | 7c1f70cbf29b1c0cfc4cf8a13260aa01453de093 (diff) | |
| download | perl-bc177e6b66d4907a90c81f2862ce55ad78b6496f.tar.gz | |
move PL_lex_state into the PL_parser struct
p4raw-id: //depot/perl@31154
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3009,7 +3009,7 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq) CvDEPTH(PL_compcv) = 1; SP = PL_stack_base + POPMARK; /* pop original mark */ PL_op = saveop; /* The caller may need it. */ - PL_lex_state = LEX_NOTPARSING; /* $^S needs this. */ + PL_parser->lex_state = LEX_NOTPARSING; /* $^S needs this. */ RETURNOP(PL_eval_start); } |