perl/perl-errorcount.diff
OBS User autobuild 609b92152f Accepting request 31309 from devel:languages:perl
Copy from devel:languages:perl/perl based on submit request 31309 from user coolo

OBS-URL: https://build.opensuse.org/request/show/31309
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/perl?expand=0&rev=36
2010-02-05 12:54:45 +00:00

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;