diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2007-05-04 09:18:05 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2007-05-04 09:18:05 +0000 |
| commit | c2598295beaf75b0a9a1bfaf07d356e6d2feda64 (patch) | |
| tree | 6c555e0e5a91597f42be4f7f759f06cd299a1202 /toke.c | |
| parent | 39a02377168077906737598dcf144d37f537c121 (diff) | |
| download | perl-c2598295beaf75b0a9a1bfaf07d356e6d2feda64.tar.gz | |
toke.c changes missed from change #31134
p4raw-link: @31134 on //depot/perl: 53a7735b62aee14640bc8ca619b4267f07d686b9
p4raw-id: //depot/perl@31136
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -50,6 +50,8 @@ #define PL_preambled (PL_parser->preambled) #define PL_sublex_info (PL_parser->sublex_info) #define PL_linestr (PL_parser->linestr) +#define PL_expect (PL_parser->expect) +#define PL_copline (PL_parser->copline) #ifdef PERL_MAD @@ -679,11 +681,10 @@ Perl_lex_start(pTHX_ SV *line) SAVEPPTR(PL_last_uni); SAVEPPTR(PL_linestart); SAVEDESTRUCTOR_X(restore_rsfp, PL_rsfp); - SAVEI8(PL_expect); - PL_copline = NOLINE; + parser->copline = NOLINE; PL_lex_state = LEX_NORMAL; - PL_expect = XSTATE; + parser->expect = XSTATE; Newx(parser->lex_brackstack, 120, char); Newx(parser->lex_casestack, 12, char); *parser->lex_casestack = '\0'; |