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
4 utime($atime,$mtime + $Is_VMS,$targetfile) unless $dry_run>1;
7 - $mode = 0444 | ( $mode & 0111 ? 0111 : 0 );
8 + $mode = 0644 | ( $mode & 0111 ? 0111 : 0 );
10 if $realtarget ne $targetfile;
11 _chmod( $mode, $targetfile, $verbose );
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);
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
27 - ok( !writeable("$bigdir/DummyHard.pm"), 'DummyHard.pm not writeable' );
28 + ok( writeable("$bigdir/DummyHard.pm"), 'DummyHard.pm not writeable' );
31 ok(compare("$bigdir/Dummy.pm", "$bigdir/DummyHard.pm"),
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");