From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Mon, 20 Nov 2006 15:31:03 +0000 (+0000)
Subject: Actually, undef $SIG{FOO} should restore the default signal
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=baf38871fc80983cac18186eda941e2cc1b9430b;p=p5sagit%2Fp5-mst-13.2.git

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.

p4raw-id: //depot/perl@29328
---

diff --git a/mg.c b/mg.c
index 494e9fd..a01ab36 100644
--- a/mg.c
+++ b/mg.c
@@ -1459,7 +1459,7 @@ Perl_magic_setsig(pTHX_ SV *sv, MAGIC *mg)
 	    SvREFCNT_dec(to_dec);
 	return 0;
     }
-    s = SvOK(sv) ? SvPV_force(sv,len) : "IGNORE";
+    s = SvOK(sv) ? SvPV_force(sv,len) : "DEFAULT";
     if (strEQ(s,"IGNORE")) {
 	if (i) {
 #ifdef FAKE_PERSISTENT_SIGNAL_HANDLERS