diff options
author | Vincent Pit <perl@profvince.com> | 2008-12-28 17:10:31 +0100 |
---|---|---|
committer | Vincent Pit <perl@profvince.com> | 2008-12-28 17:10:31 +0100 |
commit | 92970b93f52417834e63ece1fd5d664e42639847 (patch) | |
tree | 220afb9c41cb64b07e3aa4e2bf8b1f938adbbd7e /pp_hot.c | |
parent | 4ad10a0b60fb728d1be0a9eeb1970166a3846d38 (diff) | |
download | perl-92970b93f52417834e63ece1fd5d664e42639847.tar.gz |
Also define 'localizing' in pp_helem for the sake of clarity
Diffstat (limited to 'pp_hot.c')
-rw-r--r-- | pp_hot.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -1783,12 +1783,13 @@ PP(pp_helem) const U32 defer = PL_op->op_private & OPpLVAL_DEFER; SV *sv; const U32 hash = (SvIsCOW_shared_hash(keysv)) ? SvSHARED_HASH(keysv) : 0; + const bool localizing = PL_op->op_private & OPpLVAL_INTRO; bool preeminent = TRUE; if (SvTYPE(hv) != SVt_PVHV) RETPUSHUNDEF; - if (PL_op->op_private & OPpLVAL_INTRO) { + if (localizing) { MAGIC *mg; HV *stash; @@ -1819,7 +1820,7 @@ PP(pp_helem) PUSHs(lv); RETURN; } - if (PL_op->op_private & OPpLVAL_INTRO) { + if (localizing) { if (HvNAME_get(hv) && isGV(*svp)) save_gp(MUTABLE_GV(*svp), !(PL_op->op_flags & OPf_SPECIAL)); else { |