13 lines
343 B
Diff
13 lines
343 B
Diff
diff -up perl-5.10.0/pp_sys.c.crr perl-5.10.0/pp_sys.c
|
|
--- perl-5.10.0/pp_sys.c.crr 2007-12-18 11:47:08.000000000 +0100
|
|
+++ perl-5.10.0/pp_sys.c 2008-06-11 14:50:12.000000000 +0200
|
|
@@ -3002,7 +3002,7 @@ PP(pp_ftrread)
|
|
|
|
case OP_FTEEXEC:
|
|
#ifdef PERL_EFF_ACCESS
|
|
- access_mode = W_OK;
|
|
+ access_mode = X_OK;
|
|
#else
|
|
use_access = 0;
|
|
#endif
|