Doesn't make any difference for the test but is more logical.

[p5sagit/p5-mst-13.2.git] / op.c

diff --git a/op.c b/op.c
index e32eab6..be05875 100644 (file)
--- a/op.c
+++ b/op.c
@@ -4933,6 +4933,11 @@ Perl_ck_ftst(pTHX_ OP *o)
            op_free(o);
            o = newop;
        }
+       else {
+         if ((PL_hints & HINT_FILETEST_ACCESS) &&
+             OP_IS_FILETEST_ACCESS(o))
+           o->op_private |= OPpFT_ACCESS;
+       }
     }
     else {
        op_free(o);