11 lines
363 B
Diff
11 lines
363 B
Diff
|
--- toke.c.orig 2007-12-18 10:47:08.000000000 +0000
|
||
|
|
+++ toke.c 2009-06-10 09:20:40.000000000 +0000
|
||
|
|
@@ -692,6 +692,7 @@ Perl_lex_start(pTHX_ SV *line, PerlIO *r
|
||
|
|
#else
|
||
|
|
parser->nexttoke = 0;
|
||
|
|
#endif
|
||
|
|
+ parser->error_count = oparser ? oparser->error_count : 0;
|
||
|
|
parser->copline = NOLINE;
|
||
|
|
parser->lex_state = LEX_NORMAL;
|
||
|
|
parser->expect = XSTATE;
|