diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-18 21:44:34 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-03-18 21:44:34 +0000 |
commit | 8341b96b912f641681f822ceb6ec0b8b19720375 (patch) | |
tree | 6e5948b62086a5ee99d9ad74ce6c6f4b4e2bdbcc /toke.c | |
parent | 23dcd6c8b343c4ac87d3915a222eed14cf6c153a (diff) | |
parent | c7d6bfb246054926d9f90d7da2845febddfc90b7 (diff) | |
download | perl-8341b96b912f641681f822ceb6ec0b8b19720375.tar.gz |
Integrate with Sarathy.
p4raw-id: //depot/cfgperl@5809
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -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; |