perl-write-permissions.patch

   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 @@ -666,7 +666,7 @@
   4              utime($atime,$mtime + $Is_VMS,$targetfile) unless $nonono>1;
   5
   6
   7 -            $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
   8 +            $mode = 0644 | ( $mode & 0111 ? 0111 : 0 );
   9              $mode = $mode | 0222
  10                  if $realtarget ne $targetfile;
  11              _chmod( $mode, $targetfile, $verbose );
  12 @@ -1018,7 +1018,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      }
  21