--- perl-5.8.1-RC3/lib/ExtUtils/Install.pm.pix 2003-07-10 08:11:41.000000000 +0200 +++ perl-5.8.1-RC3/lib/ExtUtils/Install.pm 2003-07-31 13:28:22.000000000 +0200 @@ -181,7 +181,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 { @@ -464,7 +464,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); }