[Midnightbsd-cvs] src: pp_sys.c: Fix bug when fileaccess pragma was used with -x file
ctriv at midnightbsd.org
ctriv at midnightbsd.org
Sun Mar 15 15:49:49 EDT 2009
Log Message:
-----------
Fix bug when fileaccess pragma was used with -x file test.
See perl RT #49003.
Modified Files:
--------------
src/contrib/perl:
pp_sys.c (r1.1.1.1 -> r1.2)
-------------- next part --------------
Index: pp_sys.c
===================================================================
RCS file: /home/cvs/src/contrib/perl/pp_sys.c,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -L contrib/perl/pp_sys.c -L contrib/perl/pp_sys.c -u -r1.1.1.1 -r1.2
--- contrib/perl/pp_sys.c
+++ contrib/perl/pp_sys.c
@@ -3002,7 +3002,7 @@
case OP_FTEEXEC:
#ifdef PERL_EFF_ACCESS
- access_mode = W_OK;
+ access_mode = X_OK;
#else
use_access = 0;
#endif
More information about the Midnightbsd-cvs
mailing list