diff options
| author | Chip Salzenberg <chip@pobox.com> | 2008-11-12 07:45:04 -0800 |
|---|---|---|
| committer | Marcus Holland-Moritz <mhx-perl@gmx.net> | 2008-11-13 05:47:34 +0000 |
| commit | af7df2578e5aff079dd90eeab57a2a48fb1a43c0 (patch) | |
| tree | a42bb3f442b701e38962f5707c68350cb3afb2fd /pp.c | |
| parent | df25d2ffed6470ee4093c2b22655779430fd807b (diff) | |
| download | perl-af7df2578e5aff079dd90eeab57a2a48fb1a43c0.tar.gz | |
Re: [perl #60360] [PATCH] UPDATED: local $SIG{FOO} = sub {...}; sets signal handler to SIG_DFL
Message-ID: <20081112234504.GI2062@tytlal.topaz.cx>
Updated patch to retain source compatibility.
Plus using the correct PERL_ARGS_ASSERT_SAVE_HELEM_FLAGS
macro and running make regen.
p4raw-id: //depot/perl@34829
Diffstat (limited to 'pp.c')
| -rw-r--r-- | pp.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -4185,7 +4185,8 @@ PP(pp_hslice) save_gp(MUTABLE_GV(*svp), !(PL_op->op_flags & OPf_SPECIAL)); else { if (preeminent) - save_helem(hv, keysv, svp, !(PL_op->op_flags & OPf_SPECIAL)); + save_helem_flags(hv, keysv, svp, + (PL_op->op_flags & OPf_SPECIAL) ? 0 : SAVEf_SETMAGIC); else { STRLEN keylen; const char * const key = SvPV_const(keysv, keylen); |