blob: c43ef58891fbf14b6eb74200aa08fe874a3e0dc4 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# 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
|
