1 files changed, 18 insertions, 0 deletions
diff --git a/lang/perl5.14/files/patch-bug49003 b/lang/perl5.14/files/patch-bug49003
new file mode 100644
index 000000000000..c43ef58891fb
--- /dev/null
+++ b/lang/perl5.14/files/patch-bug49003
@@ -0,0 +1,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