summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorGerard Goossen <gerard@ggoossen.net>2011-01-17 22:12:53 +0100
committerFather Chrysostomos <sprout@cpan.org>2011-07-11 13:13:55 -0700
commitbbd913065e380df5bdf59cf693e631193415ca9b (patch)
tree164acb5a19fd84ed043bae823417f081e0cc642c /pp_sys.c
parentb852bf25024c0d639055357ed278f488e26294e4 (diff)
downloadperl-bbd913065e380df5bdf59cf693e631193415ca9b.tar.gz
use a flag to signal a stacking filetests instead of peeking at the next op.
Preparation for the codegeneration changes where the next op isn't accessible.
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c6
1 files changed, 1 insertions, 5 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 6ef266fcde..3325453aa3 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -2914,11 +2914,7 @@ S_try_amagic_ftest(pTHX_ char chr) {
SPAGAIN;
- next = PL_op->op_next;
- if (next->op_type >= OP_FTRREAD &&
- next->op_type <= OP_FTBINARY &&
- next->op_private & OPpFT_STACKED
- ) {
+ if (PL_op->op_private & OPpFT_STACKING) {
if (SvTRUE(tmpsv))
/* leave the object alone */
return TRUE;