- up to 5.28.0 but test suite fails

[packages/perl.git] / perl-write-permissions.patch

--- perl-5.12.0/cpan/ExtUtils-Install/lib/ExtUtils/Install.pm.orig	2009-08-03 21:36:03.000000000 +0200
+++ perl-5.12.0/cpan/ExtUtils-Install/lib/ExtUtils/Install.pm	2009-09-12 10:07:06.181527344 +0200
@@ -813,7 +813,7 @@
                 utime($atime,$mtime + $Is_VMS,$targetfile) unless $dry_run>1;
 
 
-                $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
+                $mode = 0644 | ( $mode & 0111 ? 0111 : 0 );
                 $mode = $mode | 0222
                     if $realtarget ne $targetfile;
                 _chmod( $mode, $targetfile, $verbose );
@@ -1233,7 +1233,7 @@ sub pm_to_blib {
         }
         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) if defined $autodir;
     }
--- perl-5.20.0/cpan/ExtUtils-Install/t/Install.t.orig	2014-05-29 13:11:07.961096445 +0200
+++ perl-5.20.0/cpan/ExtUtils-Install/t/Install.t	2014-05-29 13:11:20.681234036 +0200
@@ -237,7 +237,7 @@
                          },
     ]);
 
-    ok( !writeable("$bigdir/DummyHard.pm"), 'DummyHard.pm not writeable' );
+    ok( writeable("$bigdir/DummyHard.pm"), 'DummyHard.pm not writeable' );
 
     use File::Compare;
     ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyHard.pm"),
@@ -261,7 +261,7 @@
                          },
     ]);
 
-    ok( !writeable("$bigdir/DummyOrig.pm"), 'DummyOrig.pm not writeable' );
+    ok( writeable("$bigdir/DummyOrig.pm"), 'DummyOrig.pm not writeable' );
     ok( !-l "$bigdir/Dummy.pm", 'Dummy.pm not a link' );
     ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyOrig.pm"),
         "orig file should be different");