[perl #49472] Attributes + Unkown Error

An errored attribute sub still processes the attributes,
which require's attribute.pm, so make sure the error state is
passed to the new require

p4raw-id: //depot/perl@33265

1 files changed, 1 insertions, 0 deletions

diff --git a/toke.c b/toke.c
index 2ae8b7577b..ecee9025ab 100644
--- a/toke.c
+++ b/toke.c
@@ -692,6 +692,7 @@ Perl_lex_start(pTHX_ SV *line, PerlIO *rsfp, bool new_filter)
 #else
     parser->nexttoke = 0;
 #endif
+    parser->error_count = oparser ? oparser->error_count : 0;
     parser->copline = NOLINE;
     parser->lex_state = LEX_NORMAL;
     parser->expect = XSTATE;