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 /warnings.h | |
| parent | 262cbcdb563b9a037afe19e3ef94322ccc35436a (diff) | |
| download | perl-5f2d99664d8a6923d24892ffc0569f4e03e22edd.tar.gz | |
disable WARN and DIE hooks during constant folding
p4raw-id: //depot/perl@28148
Diffstat (limited to 'warnings.h')
| -rw-r--r-- | warnings.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/warnings.h b/warnings.h index aa830c05fe..423a21a4c2 100644 --- a/warnings.h +++ b/warnings.h @@ -24,6 +24,9 @@ #define specialWARN(x) ((x) == pWARN_STD || (x) == pWARN_ALL || \ (x) == pWARN_NONE) +/* if PL_warnhook is set to this value, then warnings die */ +#define PERL_WARNHOOK_FATAL (((SV*)0) + 1) + /* Warnings Categories added in Perl 5.008 */ #define WARN_ALL 0 |