This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate:
[perl5.git] / warnings.h
index c8cd9a5..5364a51 100644 (file)
@@ -25,7 +25,7 @@
                                 (x) == pWARN_NONE)
 
 /* if PL_warnhook is set to this value, then warnings die */
                                 (x) == pWARN_NONE)
 
 /* if PL_warnhook is set to this value, then warnings die */
-#define PERL_WARNHOOK_FATAL    (((SV*)0) + 1)
+#define PERL_WARNHOOK_FATAL    (&PL_sv_placeholder)
 
 /* Warnings Categories added in Perl 5.008 */
 
 
 /* Warnings Categories added in Perl 5.008 */