]>
Commit | Line | Data |
---|---|---|
f3564b55 JR |
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; | |
eff70e0a AM |
6 | |
7 | ||
7e81db84 | 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 ); | |
f5b778c6 | 13 | @@ -1233,7 +1233,7 @@ sub pm_to_blib { |
eff70e0a AM |
14 | } |
15 | my($mode,$atime,$mtime) = (stat $from)[2,8,9]; | |
f5b778c6 | 16 | utime($atime,$mtime+Is_VMS,$to); |
eff70e0a AM |
17 | - _chmod(0444 | ( $mode & 0111 ? 0111 : 0 ),$to); |
18 | + _chmod(0644 | ( $mode & 0111 ? 0111 : 0 ),$to); | |
19 | next unless $from =~ /\.pm$/; | |
f5b778c6 | 20 | _autosplit($to,$autodir) if defined $autodir; |
3f3763d9 | 21 | } |
f3564b55 JR |
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: { | |
ae05c992 JR |
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"), | |
f3564b55 | 34 | @@ -264,7 +264,7 @@ SKIP: { |
ae05c992 JR |
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"); |