From 21938ae5a278f0b48443561333c47714921e7566 Mon Sep 17 00:00:00 2001
From: Yves Orton <demerphq@gmail.com>
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.
---
 toke.c | 10 +---------
 1 file changed, 1 insertion(+), 9 deletions(-)

(limited to 'toke.c')

diff --git a/toke.c b/toke.c
index a4454fe010..60b17f040a 100644
--- a/toke.c
+++ b/toke.c
@@ -6218,6 +6218,7 @@ yyl_leftcurly(pTHX_ char *s, const U8 formbrack)
                     /* This hack is to get the ${} in the message. */
                     PL_bufptr = s+1;
                     yyerror("syntax error");
+                    yyquit();
                     break;
                 }
                 OPERATOR(HASHBRACK);
@@ -12951,15 +12952,6 @@ Perl_yyerror_pvn(pTHX_ const char *const s, STRLEN len, U32 flags)
                 Perl_croak(aTHX_ "%s has too many errors.\n", name);
             }
         }
-        else {
-            /* This is a syntax error, and we should stop compiling. */
-            assert(PERL_PARSE_IS_SYNTAX_ERROR(PL_error_count));
-            if (errsv) {
-                Perl_croak_sv(aTHX_ errsv);
-            } else {
-                abort_execution(errsv, name);
-            }
-        }
     }
     PL_in_my = 0;
     PL_in_my_stash = NULL;
-- 
cgit v1.2.1