Change 30228 by [EMAIL PROTECTED] on 2007/02/12 15:27:31
Subject: Re: PL_copline inconsistency
From: Rick Delaney <[EMAIL PROTECTED]>
Date: Sat, 27 Jan 2007 20:29:02 -0500
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/toke.c#746 edit
Differences ...
==== //depot/perl/toke.c#746 (text) ====
Index: perl/toke.c
--- perl/toke.c#745~30101~ 2007-02-02 14:10:39.000000000 -0800
+++ perl/toke.c 2007-02-12 07:27:31.000000000 -0800
@@ -677,6 +677,7 @@
SAVEDESTRUCTOR_X(restore_rsfp, PL_rsfp);
SAVEINT(PL_expect);
+ PL_copline = NOLINE;
PL_lex_state = LEX_NORMAL;
PL_expect = XSTATE;
Newx(parser->lex_brackstack, 120, char);
End of Patch.
