# http://rt.perl.org/rt3/Public/Bug/Display.html?id=49003
# http://perl5.git.perl.org/perl.git/commitdiff/b376053de54af4268a31e5a60d1f9e57db30af11?hp=3a28f3fb1bfd44e4e3dfe6842af867c8c1c9de28
diff --git a/pp_sys.c b/pp_sys.c
index 66ca0fb..da07e46 100644
--- pp_sys.c
+++ pp_sys.c
@@ -2999,10 +2999,9 @@ PP(pp_ftrread)
 	effective = TRUE;
 	break;
 
-
     case OP_FTEEXEC:
 #ifdef PERL_EFF_ACCESS
-	access_mode = W_OK;
+	access_mode = X_OK;
 #else
 	use_access = 0;
 #endif