perl-write-permissions.patch

   1 --- perl-5.12.0/dist/ExtUtils-Install/lib/ExtUtils/Install.pm.orig      2009-08-03 21:36:03.000000000 +0200
   2 +++ perl-5.12.0/dist/ExtUtils-Install/lib/ExtUtils/Install.pm   2009-09-12 10:07:06.181527344 +0200
   3 @@ -813,7 +813,7 @@
   4                  utime($atime,$mtime + $Is_VMS,$targetfile) unless $dry_run>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 @@ -1215,7 +1215,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 --- perl-5.20.0/dist/ExtUtils-Install/t/Install.t.orig  2014-05-29 13:11:07.961096445 +0200
  22 +++ perl-5.20.0/dist/ExtUtils-Install/t/Install.t       2014-05-29 13:11:20.681234036 +0200
  23 @@ -237,7 +237,7 @@
  24                           },
  25      ]);
  26
  27 -    ok( !writeable("$bigdir/DummyHard.pm"), 'DummyHard.pm not writeable' );
  28 +    ok( writeable("$bigdir/DummyHard.pm"), 'DummyHard.pm not writeable' );
  29
  30      use File::Compare;
  31      ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyHard.pm"),
  32 @@ -261,7 +261,7 @@
  33                           },
  34      ]);
  35
  36 -    ok( !writeable("$bigdir/DummyOrig.pm"), 'DummyOrig.pm not writeable' );
  37 +    ok( writeable("$bigdir/DummyOrig.pm"), 'DummyOrig.pm not writeable' );
  38      ok( !-l "$bigdir/Dummy.pm", 'Dummy.pm not a link' );
  39      ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyOrig.pm"),
  40          "orig file should be different");