rpms/perl/devel perl-5.10.0-accessXOK.patch, NONE, 1.1 perl.spec, 1.169, 1.170

[Marcela Mašláňová (mmaslano)]

Author: mmaslano

Update of /cvs/pkgs/rpms/perl/devel
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv13633

Modified Files:
	perl.spec 
Added Files:
	perl-5.10.0-accessXOK.patch 
Log Message:
- 447371 wrong access permission rt49003


perl-5.10.0-accessXOK.patch:

--- NEW FILE perl-5.10.0-accessXOK.patch ---
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


Index: perl.spec
===================================================================
RCS file: /cvs/pkgs/rpms/perl/devel/perl.spec,v
retrieving revision 1.169
retrieving revision 1.170
diff -u -r1.169 -r1.170
--- perl.spec	10 Jun 2008 14:58:33 -0000	1.169
+++ perl.spec	11 Jun 2008 13:33:11 -0000	1.170
@@ -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 @@
 # 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 @@
 %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 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 @@
 
 # Old changelog entries are preserved in CVS.
 %changelog
+* Wed Jun 11 2008 Marcela Maslanova <mmaslano at redhat.com> 4:5.10.0-27
+- 447371 wrong access permission rt49003
+
 * Tue Jun 10 2008 Stepan Kasal <skasal at 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)