diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2006-05-10 01:32:10 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2006-05-10 01:32:10 +0000 |
| commit | 5f2d99664d8a6923d24892ffc0569f4e03e22edd (patch) | |
| tree | 9d91bd681577184ff755bb9e9978f9a4bea8644d /util.c | |
| parent | 262cbcdb563b9a037afe19e3ef94322ccc35436a (diff) | |
| download | perl-5f2d99664d8a6923d24892ffc0569f4e03e22edd.tar.gz | |
disable WARN and DIE hooks during constant folding
p4raw-id: //depot/perl@28148
Diffstat (limited to 'util.c')
| -rw-r--r-- | util.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1456,7 +1456,7 @@ void Perl_vwarner(pTHX_ U32 err, const char* pat, va_list* args) { dVAR; - if (ckDEAD(err)) { + if (PL_warnhook == PERL_WARNHOOK_FATAL || ckDEAD(err)) { SV * const msv = vmess(pat, args); STRLEN msglen; const char * const message = SvPV_const(msv, msglen); |