diff options
author | Yves Orton <demerphq@gmail.com> | 2022-09-25 15:09:52 +0200 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2023-02-20 11:34:22 +0800 |
commit | 21938ae5a278f0b48443561333c47714921e7566 (patch) | |
tree | 62b372c8d2ea947696beeafc9b88be11ad909042 /pp_ctl.c | |
parent | 8a8491416c79dc8f491c402c013844437c0643eb (diff) | |
download | perl-21938ae5a278f0b48443561333c47714921e7566.tar.gz |
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.
Diffstat (limited to 'pp_ctl.c')
-rw-r--r-- | pp_ctl.c | 6 |
1 files changed, 0 insertions, 6 deletions
@@ -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; - } } } |