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.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.c')
| -rw-r--r-- | pp.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4185,7 +4185,7 @@ PP(pp_hslice) save_gp(MUTABLE_GV(*svp), !(PL_op->op_flags & OPf_SPECIAL)); else { if (preeminent) - save_helem(hv, keysv, svp); + save_helem(hv, keysv, svp, !(PL_op->op_flags & OPf_SPECIAL)); else { STRLEN keylen; const char * const key = SvPV_const(keysv, keylen); |