summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2022-09-25 15:09:52 +0200
committerYves Orton <demerphq@gmail.com>2023-02-20 11:34:22 +0800
commit21938ae5a278f0b48443561333c47714921e7566 (patch)
tree62b372c8d2ea947696beeafc9b88be11ad909042 /pp_ctl.c
parent8a8491416c79dc8f491c402c013844437c0643eb (diff)
downloadperl-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.c6
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;
- }
}
}