diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-20 15:19:36 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-11-20 15:19:36 +0000 |
| commit | ef3f8aa3fa68a53e4fb36a449b1b8f7b88d809d9 (patch) | |
| tree | 97e7dd17f4e709912e1e72017f913e2b3a08622f /mg.c | |
| parent | 55f4245edad4e38b1869f0a6467a997a59257a0f (diff) | |
| download | perl-ef3f8aa3fa68a53e4fb36a449b1b8f7b88d809d9.tar.gz | |
Make undef $SIG{FOO} ignore the signal FOO
p4raw-id: //depot/perl@29327
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 = SvPV_force(sv,len); + s = SvOK(sv) ? SvPV_force(sv,len) : "IGNORE"; if (strEQ(s,"IGNORE")) { if (i) { #ifdef FAKE_PERSISTENT_SIGNAL_HANDLERS |