-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathperl-write-permissions.patch
42 lines (37 loc) · 2.05 KB
/
perl-write-permissions.patch
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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");