move PL_error_count into the PL_parser struct

p4raw-id: //depot/perl@31255

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index d1d67028e3..0cd9ca84e8 100644
--- a/sv.c
+++ b/sv.c
@@ -9586,6 +9586,7 @@ Perl_parser_dup(pTHX_ const yy_parser *proto, CLONE_PARAMS* param)
     parser->rsfp_filters= av_dup_inc(proto->rsfp_filters, param);
     parser->in_my	= proto->in_my;
     parser->in_my_stash	= hv_dup(proto->in_my_stash, param);
+    parser->error_count	= proto->error_count;
 
 
     parser->linestr	= sv_dup_inc(proto->linestr, param);
@@ -11267,7 +11268,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 
     PL_parser		= parser_dup(proto_perl->Iparser, param);
 
-    PL_error_count	= proto_perl->Ierror_count;
     PL_subline		= proto_perl->Isubline;
     PL_subname		= sv_dup_inc(proto_perl->Isubname, param);