perl/perl-5.10.0-accessXOK.patch

13 lines
343 B
Diff
Raw Normal View History

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