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
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;
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);