diff options
| author | Chip Salzenberg <chip@pobox.com> | 2008-11-10 08:00:40 -0800 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-11-12 10:37:46 +0000 |
| commit | 9711599ee3b2375539002b6ddc0873ec478916bb (patch) | |
| tree | 0e22f4b859b7e8d870441377be736909ca5a8960 /pp_hot.c | |
| parent | 0c8767aeceb5f1c68d6318e2c8809e9913930642 (diff) | |
| download | perl-9711599ee3b2375539002b6ddc0873ec478916bb.tar.gz | |
Re: [perl #60360] [PATCH] local $SIG{FOO} = sub {...}; sets signal
Message-ID: <20081111000040.GB19329@tytlal.topaz.cx>
p4raw-id: //depot/perl@34819
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) |