SOURCES: perl-write-permissions.patch - updated

[arekm]

Author: arekm                        Date: Wed Jan  9 13:40:16 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- updated

---- Files affected:
SOURCES:
   perl-write-permissions.patch (1.1 -> 1.2) 

---- Diffs:

================================================================
Index: SOURCES/perl-write-permissions.patch
diff -u SOURCES/perl-write-permissions.patch:1.1 SOURCES/perl-write-permissions.patch:1.2
--- SOURCES/perl-write-permissions.patch:1.1	Fri May 18 17:09:10 2007
+++ SOURCES/perl-write-permissions.patch	Wed Jan  9 14:40:11 2008
@@ -1,20 +1,21 @@
 --- 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);
+@@ -666,7 +666,7 @@
+             utime($atime,$mtime + $Is_VMS,$targetfile) unless $nonono>1;
+ 
+ 
+-            $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
++            $mode = 0644 | ( $mode & 0111 ? 0111 : 0 );
+             $mode = $mode | 0222
+                 if $realtarget ne $targetfile;
+             _chmod( $mode, $targetfile, $verbose );
+@@ -1018,7 +1018,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);
      }
+
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/SOURCES/perl-write-permissions.patch?r1=1.1&r2=1.2&f=u