X-Git-Url: https://git.pld-linux.org/?a=blobdiff_plain;f=perl-write-permissions.patch;h=86657b7bceab937e351fae6ce5bb8c0b3d94810c;hb=92c205a967ef6812cdf5f2804af06f64ad21bbdd;hp=e3f9878289d543d00ccc83f7e14e7d5eb81773d5;hpb=3f3763d981a5b8a4a1ed114e7cb7f7103aa94d84;p=packages%2Fperl.git

diff --git a/perl-write-permissions.patch b/perl-write-permissions.patch
index e3f9878..86657b7 100644
--- a/perl-write-permissions.patch
+++ b/perl-write-permissions.patch
@@ -1,20 +1,20 @@
---- ExtUtils-MakeMaker-6.30.orig/lib/ExtUtils/Install.pm	2005-03-22 04:30:24.000000000 +0000
-+++ ExtUtils-MakeMaker-6.30.write-permissions/lib/ExtUtils/Install.pm	2006-10-30 16:14:28.000000000 +0000
-@@ -180,7 +180,7 @@
- 		print "Installing $targetfile\n";
- 		utime($atime,$mtime + $Is_VMS,$targetfile) unless $nonono>1;
- 		print "utime($atime,$mtime,$targetfile)\n" if $verbose>1;
--		$mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
-+		$mode = 0644 | ( $mode & 0111 ? 0111 : 0 );
- 		chmod $mode, $targetfile;
- 		print "chmod($mode, $targetfile)\n" if $verbose>1;
- 	    } else {
-@@ -451,7 +451,7 @@
- 	}
- 	my($mode,$atime,$mtime) = (stat $from)[2,8,9];
- 	utime($atime,$mtime+$Is_VMS,$to);
--	chmod(0444 | ( $mode & 0111 ? 0111 : 0 ),$to);
-+	chmod(0644 | ( $mode & 0111 ? 0111 : 0 ),$to);
- 	next unless $from =~ /\.pm$/;
- 	_autosplit($to,$autodir);
+--- perl-5.12.0/dist/ExtUtils-Install/lib/ExtUtils/Install.pm.orig	2009-08-03 21:36:03.000000000 +0200
++++ perl-5.12.0/dist/ExtUtils-Install/lib/ExtUtils/Install.pm	2009-09-12 10:07:06.181527344 +0200
+@@ -813,7 +813,7 @@
+                 utime($atime,$mtime + $Is_VMS,$targetfile) unless $dry_run>1;
+ 
+ 
+-                $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
++                $mode = 0644 | ( $mode & 0111 ? 0111 : 0 );
+                 $mode = $mode | 0222
+                     if $realtarget ne $targetfile;
+                 _chmod( $mode, $targetfile, $verbose );
+@@ -1215,7 +1215,7 @@
+         }
+         my($mode,$atime,$mtime) = (stat $from)[2,8,9];
+         utime($atime,$mtime+$Is_VMS,$to);
+-        _chmod(0444 | ( $mode & 0111 ? 0111 : 0 ),$to);
++        _chmod(0644 | ( $mode & 0111 ? 0111 : 0 ),$to);
+         next unless $from =~ /\.pm$/;
+         _autosplit($to,$autodir);
      }