]>
Commit | Line | Data |
---|---|---|
22cc155b | 1 | diff -Nur ExtUtils-MakeMaker-6.30.orig/lib/ExtUtils/Install.pm ExtUtils-MakeMaker-6.30.write-permissions/lib/ExtUtils/Install.pm |
2 | --- ExtUtils-MakeMaker-6.30.orig/lib/ExtUtils/Install.pm 2005-03-22 04:30:24.000000000 +0000 | |
3 | +++ ExtUtils-MakeMaker-6.30.write-permissions/lib/ExtUtils/Install.pm 2006-10-30 16:14:28.000000000 +0000 | |
4 | @@ -180,7 +180,7 @@ | |
5 | print "Installing $targetfile\n"; | |
6 | utime($atime,$mtime + $Is_VMS,$targetfile) unless $nonono>1; | |
7 | print "utime($atime,$mtime,$targetfile)\n" if $verbose>1; | |
8 | - $mode = 0444 | ( $mode & 0111 ? 0111 : 0 ); | |
9 | + $mode = 0644 | ( $mode & 0111 ? 0111 : 0 ); | |
10 | chmod $mode, $targetfile; | |
11 | print "chmod($mode, $targetfile)\n" if $verbose>1; | |
12 | } else { | |
13 | @@ -451,7 +451,7 @@ | |
14 | } | |
15 | my($mode,$atime,$mtime) = (stat $from)[2,8,9]; | |
16 | utime($atime,$mtime+$Is_VMS,$to); | |
17 | - chmod(0444 | ( $mode & 0111 ? 0111 : 0 ),$to); | |
18 | + chmod(0644 | ( $mode & 0111 ? 0111 : 0 ),$to); | |
19 | next unless $from =~ /\.pm$/; | |
20 | _autosplit($to,$autodir); | |
21 | } |