Call FETCH once for stacked filetest ops

diff --git a/pp_sys.c b/pp_sys.c
index 47c8a35..d4f1b9f 100644 (file)
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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))
     {

diff --git a/t/op/tie_fetch_count.t b/t/op/tie_fetch_count.t
index d9d4989..d721f42 100644 (file)
--- a/t/op/tie_fetch_count.t
+++ b/t/op/tie_fetch_count.t
@@ -7,7 +7,7 @@ BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
     require './test.pl';
-    plan (tests => 298);
+    plan (tests => 299);
 }
 
 use strict;
@@ -142,6 +142,8 @@ for (split //, 'rwxoRWXOezsfdpSbctugkTBMAC') {
     check_count "-$_ \\\$tied_glob";
 }
 $dummy  = -l $var       ; check_count '-l';
+$var = "test.pl";
+$dummy  = -e -e -e $var ; check_count '-e -e';
 
 # Matching
 $_ = "foo";