This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate:
[perl5.git] / warnings.pl
index 3c978d1..f2380d9 100644 (file)
@@ -284,7 +284,7 @@ print WARN <<'EOM' ;
                                 (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)
 EOM
 
 my $offset = 0 ;
 EOM
 
 my $offset = 0 ;