From c2598295beaf75b0a9a1bfaf07d356e6d2feda64 Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Fri, 4 May 2007 09:18:05 +0000 Subject: [PATCH] toke.c changes missed from change #31134 p4raw-link: @31134 on //depot/perl: 53a7735b62aee14640bc8ca619b4267f07d686b9 p4raw-id: //depot/perl@31136 --- toke.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/toke.c b/toke.c index c2a5566..aa2ec2d 100644 --- a/toke.c +++ b/toke.c @@ -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'; -- 2.7.4