diff options
| author | Rick Delaney <rick@consumercontact.com> | 2007-01-27 15:29:02 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-02-12 15:27:31 +0000 |
| commit | ebca63ee5f1955c84450c209cba0b49a23ad2f27 (patch) | |
| tree | 407c9c1fa8759732b9d8085b86d9c61bbf0aef2e /toke.c | |
| parent | 83a47afdc22cbd1f73f2816d864aef3c6bf23712 (diff) | |
| download | perl-ebca63ee5f1955c84450c209cba0b49a23ad2f27.tar.gz | |
Re: PL_copline inconsistency
Message-ID: <20070128012902.GA21572@bort.ca>
p4raw-id: //depot/perl@30228
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -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); |