diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-01-24 09:23:02 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-01-24 09:23:02 -0800 |
| commit | c57800287bb7332d399cc08ed7d34606d6640e22 (patch) | |
| tree | 352e180216437e2cacbbba1e949a88edce123328 /pp_sys.c | |
| parent | 0ac0889ddd9fa6a813ba1775f80d5284ffa95d9f (diff) | |
| download | perl-c57800287bb7332d399cc08ed7d34606d6640e22.tar.gz | |
Call FETCH once for stacked filetest ops
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2949,7 +2949,7 @@ S_try_amagic_ftest(pTHX_ char chr) { SV* const arg = TOPs; assert(chr != '?'); - SvGETMAGIC(arg); + if (!(PL_op->op_private & OPpFT_STACKING)) SvGETMAGIC(arg); if (SvAMAGIC(TOPs)) { |