From 85f75da710d07324a7a6a149ebac536bcc96a9b7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marcela=20Ma=C5=A1l=C3=A1=C5=88ov=C3=A1?=
 <mmaslano@fedoraproject.org>
Date: Wed, 11 Jun 2008 13:33:11 +0000
Subject: [PATCH] - 447371 wrong access permission rt49003

---
 perl-5.10.0-accessXOK.patch | 12 ++++++++++++
 perl.spec                   | 10 +++++++++-
 2 files changed, 21 insertions(+), 1 deletion(-)
 create mode 100644 perl-5.10.0-accessXOK.patch

diff --git a/perl-5.10.0-accessXOK.patch b/perl-5.10.0-accessXOK.patch
new file mode 100644
index 0000000..facfa42
--- /dev/null
+++ b/perl-5.10.0-accessXOK.patch
@@ -0,0 +1,12 @@
+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
diff --git a/perl.spec b/perl.spec
index 182eef5..aa538a6 100644
--- a/perl.spec
+++ b/perl.spec
@@ -11,7 +11,7 @@
 
 Name:           perl
 Version:        %{perl_version}
-Release:        26%{?dist}
+Release:        27%{?dist}
 Epoch:          %{perl_epoch}
 Summary:        The Perl programming language
 Group:          Development/Languages
@@ -72,6 +72,9 @@ Patch14:	perl-5.10.0-CGI-3.37.patch
 # Problem with assertion - add upstream patch
 Patch15:	perl-5.10.0-bz448392.patch
 
+# Wrong access test
+Patch16:	perl-5.10.0-accessXOK.patch
+
 BuildRoot:      %{_tmppath}/%{name}-%{perl_version}-%{release}-root-%(%{__id_u} -n)
 BuildRequires:  tcsh, dos2unix, man, groff
 BuildRequires:  gdbm-devel, db4-devel, zlib-devel
@@ -794,6 +797,7 @@ upstream tarball from perl.org.
 %patch13 -p1
 %patch14 -p1
 %patch15 -p1
+%patch16 -p1
 
 #
 # Candidates for doc recoding (need case by case review):
@@ -1005,6 +1009,7 @@ perl -x patchlevel.h 'Fedora Patch12: Update Module::Load::Conditional to 0.24'
 perl -x patchlevel.h 'Fedora Patch13: Upgrade Module::CoreList to 2.14'
 perl -x patchlevel.h 'Fedora Patch14: Upgrade CGI to 3.37'
 perl -x patchlevel.h 'Fedora Patch15: Adopt upstream commit for assertion'
+perl -x patchlevel.h 'Fedora Patch16: Access permission - rt49003'
 
 %clean
 rm -rf $RPM_BUILD_ROOT
@@ -1610,6 +1615,9 @@ make test
 
 # Old changelog entries are preserved in CVS.
 %changelog
+* Wed Jun 11 2008 Marcela Maslanova <mmaslano@redhat.com> 4:5.10.0-27
+- 447371 wrong access permission rt49003
+
 * Tue Jun 10 2008 Stepan Kasal <skasal@redhat.com> 4:5.10.0-26
 - make config parameter list consistent for 32bit and 64bit platforms,
   add config option -Dinc_version_list=none (#448735)