From 21938ae5a278f0b48443561333c47714921e7566 Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Sun, 25 Sep 2022 15:09:52 +0200 Subject: perl.h, pp_ctl.c - switch to standard way of terminating compilation I did not fully understand the use of yyquit() when I implemented the SYNTAX_ERROR related stuff. It is not needed, and switching to this makes eval compile error messages more consistent. --- pp_ctl.c | 6 ------ 1 file changed, 6 deletions(-) (limited to 'pp_ctl.c') 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; - } } } -- cgit v1.2.1