summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c10
1 files changed, 1 insertions, 9 deletions
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;