summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorTony Cook <tony@develop-help.com>2019-01-25 10:32:42 +1100
committerTony Cook <tony@develop-help.com>2019-01-25 10:32:42 +1100
commit0f9a6232f0af0895807ddd0afae2d5512aa91bf9 (patch)
treee4d1e923a5b853b29a8babf920bf4293c4589465 /pp_hot.c
parentf8d82a1010426d0eb49c33cb903413b882c85c3e (diff)
downloadperl-0f9a6232f0af0895807ddd0afae2d5512aa91bf9.tar.gz
PERL_OP_PARENT is always defined, stop testing for it
PERL_OP_PARENT is the new reality, leaving the pre-processor checks is more confusing that anything else. I left the test in perl.c for consistency with the other checks in that code.
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c2
1 files changed, 0 insertions, 2 deletions
diff --git a/pp_hot.c b/pp_hot.c
index ace5f0208b..386787505f 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -1822,7 +1822,6 @@ S_padhv_rv2hv_common(pTHX_ HV *hv, U8 gimme, bool is_keys, bool has_targ)
PUSHi(i);
}
else
-#ifdef PERL_OP_PARENT
if (is_keys) {
/* parent op should be an unused OP_KEYS whose targ we can
* use */
@@ -1836,7 +1835,6 @@ S_padhv_rv2hv_common(pTHX_ HV *hv, U8 gimme, bool is_keys, bool has_targ)
PUSHi(i);
}
else
-#endif
mPUSHi(i);
}
}