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