- rediff patches

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

diff --git a/perl-write-permissions.patch b/perl-write-permissions.patch
index 9827beb58ed07787165e5c7ef1ac3e5ec436042c..b24883c8c0ceb52070f996d4f6f1b31f178505bf 100644 (file)
--- a/perl-write-permissions.patch
+++ b/perl-write-permissions.patch
@@ -1,7 +1,8 @@
---- perl-5.10.1/lib/ExtUtils/Install.pm.orig   2009-08-25 08:46:26.000000000 +0200
-+++ perl-5.10.1/lib/ExtUtils/Install.pm        2009-08-25 08:48:05.000000000 +0200
-@@ -813,7 +813,7 @@
-                 utime($atime,$mtime + $Is_VMS,$targetfile) unless $dry_run>1;
+diff -urNp -x '*.orig' perl-5.32.1.org/cpan/ExtUtils-Install/lib/ExtUtils/Install.pm perl-5.32.1/cpan/ExtUtils-Install/lib/ExtUtils/Install.pm
+--- perl-5.32.1.org/cpan/ExtUtils-Install/lib/ExtUtils/Install.pm      2020-12-18 11:04:35.000000000 +0100
++++ perl-5.32.1/cpan/ExtUtils-Install/lib/ExtUtils/Install.pm  2021-04-01 22:48:39.572968964 +0200
+@@ -825,7 +825,7 @@ sub install { #XXX OS-SPECIFIC
+                 utime($atime,$mtime + Is_VMS,$targetfile) unless $dry_run>1;
  
  
 -                $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
@@ -9,12 +10,33 @@
                  $mode = $mode | 0222
                      if $realtarget ne $targetfile;
                  _chmod( $mode, $targetfile, $verbose );
-@@ -1215,7 +1215,7 @@
+@@ -1233,7 +1233,7 @@ sub pm_to_blib {
          }
          my($mode,$atime,$mtime) = (stat $from)[2,8,9];
-         utime($atime,$mtime+$Is_VMS,$to);
+         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);
+         _autosplit($to,$autodir) if defined $autodir;
      }
+diff -urNp -x '*.orig' perl-5.32.1.org/cpan/ExtUtils-Install/t/Install.t perl-5.32.1/cpan/ExtUtils-Install/t/Install.t
+--- perl-5.32.1.org/cpan/ExtUtils-Install/t/Install.t  2020-12-18 11:04:35.000000000 +0100
++++ perl-5.32.1/cpan/ExtUtils-Install/t/Install.t      2021-04-01 22:48:39.572968964 +0200
+@@ -240,7 +240,7 @@ SKIP: {
+                          },
+     ]);
+ 
+-    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"),
+@@ -264,7 +264,7 @@ SKIP: {
+                          },
+     ]);
+ 
+-    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");