[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