1 files changed, 0 insertions, 6 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 6ee2360f62..b1e06f4d52 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1671,13 +1671,7 @@ Perl_qerror(pTHX_ SV *err)
         Perl_warn(aTHX_ "%" SVf, SVfARG(err));
 
     if (PL_parser) {
-        STRLEN len;
-        char *err_pv = SvPV(err,len);
         ++PL_parser->error_count;
-        if (memBEGINs(err_pv,len,"syntax error"))
-        {
-            PL_parser->error_count |= PERL_PARSE_IS_SYNTAX_ERROR_FLAG;
-        }
     }
 }