summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorVincent Pit <perl@profvince.com>2008-12-28 17:10:31 +0100
committerVincent Pit <perl@profvince.com>2008-12-28 17:10:31 +0100
commit92970b93f52417834e63ece1fd5d664e42639847 (patch)
tree220afb9c41cb64b07e3aa4e2bf8b1f938adbbd7e /pp_hot.c
parent4ad10a0b60fb728d1be0a9eeb1970166a3846d38 (diff)
downloadperl-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.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/pp_hot.c b/pp_hot.c
index 66c36cbcf6..c52a0d6625 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -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 {