- up to 5.34.0

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

diff --git a/perl-write-permissions.patch b/perl-write-permissions.patch
index b24883c8c0ceb52070f996d4f6f1b31f178505bf..64eadedcefa8a64837c8e5efa31e92ed4c6c2c0d 100644 (file)
--- a/perl-write-permissions.patch
+++ b/perl-write-permissions.patch
@@ -2,7 +2,7 @@ diff -urNp -x '*.orig' perl-5.32.1.org/cpan/ExtUtils-Install/lib/ExtUtils/Instal
 --- 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;
+                 utime($atime,$mtime + _Is_VMS,$targetfile) unless $dry_run>1;
  
  
 -                $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
@@ -13,7 +13,7 @@ diff -urNp -x '*.orig' perl-5.32.1.org/cpan/ExtUtils-Install/lib/ExtUtils/Instal
 @@ -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$/;