summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-03-18 21:44:34 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-03-18 21:44:34 +0000
commit8341b96b912f641681f822ceb6ec0b8b19720375 (patch)
tree6e5948b62086a5ee99d9ad74ce6c6f4b4e2bdbcc /toke.c
parent23dcd6c8b343c4ac87d3915a222eed14cf6c153a (diff)
parentc7d6bfb246054926d9f90d7da2845febddfc90b7 (diff)
downloadperl-8341b96b912f641681f822ceb6ec0b8b19720375.tar.gz
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@5809
Diffstat (limited to 'toke.c')
-rw-r--r--toke.c10
1 files changed, 8 insertions, 2 deletions
diff --git a/toke.c b/toke.c
index a6d86c1ac2..c5637d3b31 100644
--- a/toke.c
+++ b/toke.c
@@ -7304,8 +7304,14 @@ Perl_yyerror(pTHX_ char *s)
Perl_warn(aTHX_ "%"SVf, msg);
else
qerror(msg);
- if (PL_error_count >= 10)
- Perl_croak(aTHX_ "%s has too many errors.\n", CopFILE(PL_curcop));
+ if (PL_error_count >= 10) {
+ if (PL_in_eval && SvCUR(ERRSV))
+ Perl_croak(aTHX_ "%_%s has too many errors.\n",
+ ERRSV, CopFILE(PL_curcop));
+ else
+ Perl_croak(aTHX_ "%s has too many errors.\n",
+ CopFILE(PL_curcop));
+ }
PL_in_my = 0;
PL_in_my_stash = Nullhv;
return 0;