From 9711599ee3b2375539002b6ddc0873ec478916bb Mon Sep 17 00:00:00 2001
From: Chip Salzenberg <chip@pobox.com>
Date: Mon, 10 Nov 2008 08:00:40 -0800
Subject: Re: [perl #60360] [PATCH] local $SIG{FOO} = sub {...}; sets signal
 Message-ID: <20081111000040.GB19329@tytlal.topaz.cx>

p4raw-id: //depot/perl@34819
---
 pp_hot.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'pp_hot.c')

diff --git a/pp_hot.c b/pp_hot.c
index 6450e25f35..4624fbb4e6 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1828,7 +1828,7 @@ PP(pp_helem)
 		    SAVEDELETE(hv, savepvn(key,keylen),
 			       SvUTF8(keysv) ? -(I32)keylen : (I32)keylen);
 		} else
-		    save_helem(hv, keysv, svp);
+		    save_helem(hv, keysv, svp, !(PL_op->op_flags & OPf_SPECIAL));
             }
 	}
 	else if (PL_op->op_private & OPpDEREF)
-- 
cgit v1.2.1