summaryrefslogtreecommitdiff
path: root/installperl
diff options
context:
space:
mode:
authorCraig A. Berry <craigberry@mac.com>2012-04-12 16:27:08 -0500
committerRicardo Signes <rjbs@cpan.org>2012-04-19 22:47:18 -0400
commited5958d4d0be98bffc846ce92d77c382457feea0 (patch)
treec8e2a5d82e4b2e2fc82e565d389eefe920cc688a /installperl
parentc960cc81974e3ce509bf69f12382a9d1c60bc63b (diff)
downloadperl-ed5958d4d0be98bffc846ce92d77c382457feea0.tar.gz
Set *.pod permissions in installperl.
installperl takes responsibility for explicitly setting the permissions on most of the files it installs, but had not been doing so on pods for some reason. This commit makes it do so. Not having world/other read access could not only defeat attempts to read documentation, but also cause C<use diagnostics;> to fail when it attempted to open perldiag.pod.
Diffstat (limited to 'installperl')
-rwxr-xr-xinstallperl1
1 files changed, 1 insertions, 0 deletions
diff --git a/installperl b/installperl
index 10a3781514..8b22d72930 100755
--- a/installperl
+++ b/installperl
@@ -558,6 +558,7 @@ if (!$nopods && (!$versiononly || ($installprivlib =~ m/\Q$vershort/))) {
# $_ is a name like pod/perl.pod
(my $base = $_) =~ s#.*/##;
copy_if_diff($_, "${installprivlib}/$pod/${base}");
+ chmod(0644, "${installprivlib}/$pod/${base}");
}
}