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 /ext/XS-APItest | |
| 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 'ext/XS-APItest')
| -rw-r--r-- | ext/XS-APItest/APItest.pm | 2 | ||||
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 2 |
2 files changed, 1 insertions, 3 deletions
diff --git a/ext/XS-APItest/APItest.pm b/ext/XS-APItest/APItest.pm index 61531fc97a..ba76d8f4da 100644 --- a/ext/XS-APItest/APItest.pm +++ b/ext/XS-APItest/APItest.pm @@ -5,7 +5,7 @@ use strict; use warnings; use Carp; -our $VERSION = '0.99'; +our $VERSION = '1.00'; require XSLoader; diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index a30659f14f..e77ff44f33 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -4197,7 +4197,6 @@ CODE: /* The slab allocator does not like CvROOT being set. */ CvROOT(PL_compcv) = (OP *)1; o = newFOROP(0, 0, newOP(OP_PUSHMARK, 0), 0, 0); -#ifdef PERL_OP_PARENT if (cLOOPx(cUNOPo->op_first)->op_last->op_sibparent != cUNOPo->op_first) { @@ -4205,7 +4204,6 @@ CODE: RETVAL = FALSE; } else -#endif /* If we do not crash before returning, the test passes. */ RETVAL = TRUE; op_free(o); |