diff options
| author | Gisle Aas <gisle@aas.no> | 2000-09-15 18:23:41 +0200 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-09-30 12:48:00 +0000 |
| commit | 76be56bccb2fd29f88a574150eb43ba6f16612c6 (patch) | |
| tree | 0b91f59020e0009adeb0823acf1b12ec62d164d9 /toke.c | |
| parent | bc8df1625de8498eb403fd8fa2c880e7b2d7cdc2 (diff) | |
| download | perl-76be56bccb2fd29f88a574150eb43ba6f16612c6.tar.gz | |
Re: Trapping by opmask sets strange parser state [PATCH]
Message-Id: <m3aed9ybrm.fsf@eik.g.aas.no>
p4raw-id: //depot/perl@7098
Diffstat (limited to 'toke.c')
| -rw-r--r-- | toke.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -357,7 +357,6 @@ Perl_lex_start(pTHX_ SV *line) SAVEVPTR(PL_nextval[toke]); } SAVEI32(PL_nexttoke); - PL_nexttoke = 0; } SAVECOPLINE(PL_curcop); SAVEPPTR(PL_bufptr); @@ -391,6 +390,7 @@ Perl_lex_start(pTHX_ SV *line) PL_lex_stuff = Nullsv; PL_lex_repl = Nullsv; PL_lex_inpat = 0; + PL_nexttoke = 0; PL_lex_inwhat = 0; PL_sublex_info.sub_inwhat = 0; PL_linestr = line; |