diff options
author | Gerard Goossen <gerard@ggoossen.net> | 2011-01-17 22:12:53 +0100 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-07-11 13:13:55 -0700 |
commit | bbd913065e380df5bdf59cf693e631193415ca9b (patch) | |
tree | 164acb5a19fd84ed043bae823417f081e0cc642c /pp_sys.c | |
parent | b852bf25024c0d639055357ed278f488e26294e4 (diff) | |
download | perl-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.c | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -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; |