From: Gurusamy Sarathy <gsar@cpan.org>
Date: Wed, 8 Dec 1999 01:11:44 +0000 (+0000)
Subject: longstanding typo in lexer: PL_lex_expect was not properly
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=976ef375376ba93630995e81d409fdba5fc17278;p=p5sagit%2Fp5-mst-13.2.git

longstanding typo in lexer: PL_lex_expect was not properly
saved on reentry

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

diff --git a/toke.c b/toke.c
index 8eac820..a1704dc 100644
--- a/toke.c
+++ b/toke.c
@@ -381,7 +381,7 @@ Perl_lex_start(pTHX_ SV *line)
     SAVEI32(PL_sublex_info.sub_inwhat);
     SAVESPTR(PL_lex_repl);
     SAVEDESTRUCTOR_X(restore_expect, PL_tokenbuf + PL_expect); /* encode as pointer */
-    SAVEDESTRUCTOR_X(restore_lex_expect, PL_tokenbuf + PL_expect);
+    SAVEDESTRUCTOR_X(restore_lex_expect, PL_tokenbuf + PL_lex_expect);
 
     PL_lex_state = LEX_NORMAL;
     PL_lex_defer = 0;