In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/46b27d2f2c37f40dde845f9b4743975c69f2cc27?hp=bc75599f3966061f79dd05f8d4bfbd827ca8a14e>
- Log ----------------------------------------------------------------- commit 46b27d2f2c37f40dde845f9b4743975c69f2cc27 Author: Lukas Mai <[email protected]> Date: Thu Feb 12 13:29:29 2015 +0100 don't fatalize warnings during unwinding (#123398) ----------------------------------------------------------------------- Summary of changes: util.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/util.c b/util.c index 8cf62f5..bc2af99 100644 --- a/util.c +++ b/util.c @@ -1938,7 +1938,10 @@ Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args) { dVAR; PERL_ARGS_ASSERT_VWARNER; - if (PL_warnhook == PERL_WARNHOOK_FATAL || ckDEAD(err)) { + if ( + (PL_warnhook == PERL_WARNHOOK_FATAL || ckDEAD(err)) && + !(PL_in_eval & EVAL_KEEPERR) + ) { SV * const msv = vmess(pat, args); if (PL_parser && PL_parser->error_count) { -- Perl5 Master Repository
