Change 30074 by [EMAIL PROTECTED] on 2007/01/29 22:57:54
Integrate:
[ 29327]
Make undef $SIG{FOO} ignore the signal FOO
[ 29328]
Actually, undef $SIG{FOO} should restore the default signal
handler. Else, once we exit a block where the signal handler was
localized, it becomes ignored.
Affected files ...
... //depot/maint-5.8/perl/mg.c#145 integrate
Differences ...
==== //depot/maint-5.8/perl/mg.c#145 (text) ====
Index: perl/mg.c
--- perl/mg.c#144~30073~ 2007-01-29 14:44:03.000000000 -0800
+++ perl/mg.c 2007-01-29 14:57:54.000000000 -0800
@@ -1470,7 +1470,7 @@
SvREFCNT_dec(to_dec);
return 0;
}
- s = SvPV_force(sv,len);
+ s = SvOK(sv) ? SvPV_force(sv,len) : "DEFAULT";
if (strEQ(s,"IGNORE")) {
if (i) {
#ifdef FAKE_PERSISTENT_SIGNAL_HANDLERS
End of Patch.
