summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorVincent Pit <perl@profvince.com>2009-07-25 18:24:31 +0200
committerVincent Pit <perl@profvince.com>2009-07-25 23:26:07 +0200
commit47cfc530daffd82ce559257488607278cf379aa8 (patch)
treeca57b33e57f049aa15c250149d00870360bec57d /pp_hot.c
parentaf097752b446f87855473ee776be3a2d7b735986 (diff)
downloadperl-47cfc530daffd82ce559257488607278cf379aa8.tar.gz
Use the new SAVEHDELETE() macro wherever possible
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c15
1 files changed, 5 insertions, 10 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 7afa42225a..8416eeef6b 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1823,16 +1823,11 @@ PP(pp_helem)
if (localizing) {
if (HvNAME_get(hv) && isGV(*svp))
save_gp(MUTABLE_GV(*svp), !(PL_op->op_flags & OPf_SPECIAL));
- else {
- if (!preeminent) {
- STRLEN keylen;
- const char * const key = SvPV_const(keysv, keylen);
- SAVEDELETE(hv, savepvn(key,keylen),
- SvUTF8(keysv) ? -(I32)keylen : (I32)keylen);
- } else
- save_helem_flags(hv, keysv, svp,
- (PL_op->op_flags & OPf_SPECIAL) ? 0 : SAVEf_SETMAGIC);
- }
+ else if (preeminent)
+ save_helem_flags(hv, keysv, svp,
+ (PL_op->op_flags & OPf_SPECIAL) ? 0 : SAVEf_SETMAGIC);
+ else
+ SAVEHDELETE(hv, keysv);
}
else if (PL_op->op_private & OPpDEREF)
vivify_ref(*svp, PL_op->op_private & OPpDEREF);