From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 4 May 2007 09:18:05 +0000 (+0000)
Subject: toke.c changes missed from change #31134
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c2598295beaf75b0a9a1bfaf07d356e6d2feda64;p=p5sagit%2Fp5-mst-13.2.git

toke.c changes missed from change #31134
p4raw-link: @31134 on //depot/perl: 53a7735b62aee14640bc8ca619b4267f07d686b9

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

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';