]>
Commit | Line | Data |
---|---|---|
c69cff56 AM |
1 | --- perl-5.12.0/cpan/ExtUtils-Install/lib/ExtUtils/Install.pm.orig 2009-08-03 21:36:03.000000000 +0200 |
2 | +++ perl-5.12.0/cpan/ExtUtils-Install/lib/ExtUtils/Install.pm 2009-09-12 10:07:06.181527344 +0200 | |
7e81db84 | 3 | @@ -813,7 +813,7 @@ |
4 | utime($atime,$mtime + $Is_VMS,$targetfile) unless $dry_run>1; | |
eff70e0a AM |
5 | |
6 | ||
7e81db84 | 7 | - $mode = 0444 | ( $mode & 0111 ? 0111 : 0 ); |
8 | + $mode = 0644 | ( $mode & 0111 ? 0111 : 0 ); | |
9 | $mode = $mode | 0222 | |
10 | if $realtarget ne $targetfile; | |
11 | _chmod( $mode, $targetfile, $verbose ); | |
12 | @@ -1215,7 +1215,7 @@ | |
eff70e0a AM |
13 | } |
14 | my($mode,$atime,$mtime) = (stat $from)[2,8,9]; | |
15 | utime($atime,$mtime+$Is_VMS,$to); | |
16 | - _chmod(0444 | ( $mode & 0111 ? 0111 : 0 ),$to); | |
17 | + _chmod(0644 | ( $mode & 0111 ? 0111 : 0 ),$to); | |
18 | next unless $from =~ /\.pm$/; | |
19 | _autosplit($to,$autodir); | |
3f3763d9 | 20 | } |
c69cff56 AM |
21 | --- perl-5.20.0/cpan/ExtUtils-Install/t/Install.t.orig 2014-05-29 13:11:07.961096445 +0200 |
22 | +++ perl-5.20.0/cpan/ExtUtils-Install/t/Install.t 2014-05-29 13:11:20.681234036 +0200 | |
ae05c992 JR |
23 | @@ -237,7 +237,7 @@ |
24 | }, | |
25 | ]); | |
26 | ||
27 | - ok( !writeable("$bigdir/DummyHard.pm"), 'DummyHard.pm not writeable' ); | |
28 | + ok( writeable("$bigdir/DummyHard.pm"), 'DummyHard.pm not writeable' ); | |
29 | ||
30 | use File::Compare; | |
31 | ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyHard.pm"), | |
32 | @@ -261,7 +261,7 @@ | |
33 | }, | |
34 | ]); | |
35 | ||
36 | - ok( !writeable("$bigdir/DummyOrig.pm"), 'DummyOrig.pm not writeable' ); | |
37 | + ok( writeable("$bigdir/DummyOrig.pm"), 'DummyOrig.pm not writeable' ); | |
38 | ok( !-l "$bigdir/Dummy.pm", 'Dummy.pm not a link' ); | |
39 | ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyOrig.pm"), | |
40 | "orig file should be different"); |