From: Rick Delaney <rick@consumercontact.com>
Date: Sat, 27 Jan 2007 20:29:02 +0000 (-0500)
Subject: Re: PL_copline inconsistency
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ebca63ee5f1955c84450c209cba0b49a23ad2f27;p=p5sagit%2Fp5-mst-13.2.git

Re: PL_copline inconsistency
Message-ID: <20070128012902.GA21572@bort.ca>

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

diff --git a/toke.c b/toke.c
index 46066d1..26f706e 100644
--- a/toke.c
+++ b/toke.c
@@ -677,6 +677,7 @@ Perl_lex_start(pTHX_ SV *line)
     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);