perl-ExtUtils-MakeMaker-write-permissions.patch

   1 --- ExtUtils-MakeMaker-6.32/inc/ExtUtils/Install.pm~    2007-05-08 18:19:32.000000000 +0200
   2 +++ ExtUtils-MakeMaker-6.32/inc/ExtUtils/Install.pm     2007-05-08 18:22:09.376990824 +0200
   3 @@ -652,7 +652,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 @@ -1013,7 +1013,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      }