simplify the error reporting from the #125351 fix
authorTony Cook <tony@develop-help.com>
Tue, 28 Aug 2018 05:02:32 +0000 (15:02 +1000)
committerTony Cook <tony@develop-help.com>
Thu, 3 Jan 2019 04:22:14 +0000 (15:22 +1100)
toke.c

diff --git a/toke.c b/toke.c
index 666424b..de4ab2e 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -2575,16 +2575,8 @@ S_sublex_done(pTHX)
        const line_t l = CopLINE(PL_curcop);
        LEAVE;
         if (PL_parser->sub_error_count != PL_error_count) {
-            const char * const name = OutCopFILE(PL_curcop);
             if (PL_parser->sub_no_recover) {
-                const char * msg = "";
-                if (PL_in_eval) {
-                    SV *errsv = ERRSV;
-                    if (SvCUR(ERRSV)) {
-                        msg = Perl_form(aTHX_ "%" SVf, SVfARG(errsv));
-                    }
-                }
-                abort_execution(msg, name);
+                yyquit();
                 NOT_REACHED;
             }
         }