perl-ExtUtils-MakeMaker-write-permissions.patch

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