Salvage 'use filetest "access"' from compiletime to runtime.

p4raw-id: //depot/perl@19392

1 files changed, 5 insertions, 0 deletions

diff --git a/op.c b/op.c
index e32eab63db..be05875ca6 100644
--- 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);