diff options
author | Tony Cook <tony@develop-help.com> | 2019-01-25 10:32:42 +1100 |
---|---|---|
committer | Tony Cook <tony@develop-help.com> | 2019-01-25 10:32:42 +1100 |
commit | 0f9a6232f0af0895807ddd0afae2d5512aa91bf9 (patch) | |
tree | e4d1e923a5b853b29a8babf920bf4293c4589465 /pp_hot.c | |
parent | f8d82a1010426d0eb49c33cb903413b882c85c3e (diff) | |
download | perl-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.c | 2 |
1 files changed, 0 insertions, 2 deletions
@@ -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); } } |