diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-20 15:31:03 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-20 15:31:03 +0000 |
| commit | baf38871fc80983cac18186eda941e2cc1b9430b (patch) | |
| tree | 5a19892dc42741d4c2a71d0ee805a9f414d8c64e /mg.c | |
| parent | ef3f8aa3fa68a53e4fb36a449b1b8f7b88d809d9 (diff) | |
| download | perl-baf38871fc80983cac18186eda941e2cc1b9430b.tar.gz | |
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
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |