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 ); + $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; } 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");