1 files changed, 1 insertions, 1 deletions
diff --git a/mg.c b/mg.c
index e4d73932a9..494e9fd7ec 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 = SvPV_force(sv,len);
+    s = SvOK(sv) ? SvPV_force(sv,len) : "IGNORE";
     if (strEQ(s,"IGNORE")) {
 	if (i) {
 #ifdef FAKE_PERSISTENT_SIGNAL_HANDLERS