From d70143844849daaab2b798d1f12f92ba5037be3f Mon Sep 17 00:00:00 2001
From: Sergey Skvortsov <skv@FreeBSD.org>
Date: Sat, 4 Apr 2009 09:06:53 +0000
Subject: Add several bugfixes, imported from maint-5.10 (i.e. will be included
 into forthcoming 5.10.1).

---
 lang/perl5.14/files/patch-bug49003 | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 lang/perl5.14/files/patch-bug49003

(limited to 'lang/perl5.14/files/patch-bug49003')

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
-- 
cgit v1.2.3