perl-write-permissions.patch

   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
   2 --- perl-5.32.1.org/cpan/ExtUtils-Install/lib/ExtUtils/Install.pm       2020-12-18 11:04:35.000000000 +0100
   3 +++ perl-5.32.1/cpan/ExtUtils-Install/lib/ExtUtils/Install.pm   2021-04-01 22:48:39.572968964 +0200
   4 @@ -825,7 +825,7 @@ sub install { #XXX OS-SPECIFIC
   5                  utime($atime,$mtime + Is_VMS,$targetfile) unless $dry_run>1;
   6
   7
   8 -                $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
   9 +                $mode = 0644 | ( $mode & 0111 ? 0111 : 0 );
  10                  $mode = $mode | 0222
  11                      if $realtarget ne $targetfile;
  12                  _chmod( $mode, $targetfile, $verbose );
  13 @@ -1233,7 +1233,7 @@ sub pm_to_blib {
  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) if defined $autodir;
  21      }
  22 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
  23 --- perl-5.32.1.org/cpan/ExtUtils-Install/t/Install.t   2020-12-18 11:04:35.000000000 +0100
  24 +++ perl-5.32.1/cpan/ExtUtils-Install/t/Install.t       2021-04-01 22:48:39.572968964 +0200
  25 @@ -240,7 +240,7 @@ SKIP: {
  26                           },
  27      ]);
  28
  29 -    ok( !writeable("$bigdir/DummyHard.pm"), 'DummyHard.pm not writeable' );
  30 +    ok( writeable("$bigdir/DummyHard.pm"), 'DummyHard.pm not writeable' );
  31
  32      use File::Compare;
  33      ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyHard.pm"),
  34 @@ -264,7 +264,7 @@ SKIP: {
  35                           },
  36      ]);
  37
  38 -    ok( !writeable("$bigdir/DummyOrig.pm"), 'DummyOrig.pm not writeable' );
  39 +    ok( writeable("$bigdir/DummyOrig.pm"), 'DummyOrig.pm not writeable' );
  40      ok( !-l "$bigdir/Dummy.pm", 'Dummy.pm not a link' );
  41      ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyOrig.pm"),
  42          "orig file should be different");