diff options
author | Craig A. Berry <craigberry@mac.com> | 2012-04-12 16:27:08 -0500 |
---|---|---|
committer | Ricardo Signes <rjbs@cpan.org> | 2012-04-19 22:47:18 -0400 |
commit | ed5958d4d0be98bffc846ce92d77c382457feea0 (patch) | |
tree | c8e2a5d82e4b2e2fc82e565d389eefe920cc688a /installperl | |
parent | c960cc81974e3ce509bf69f12382a9d1c60bc63b (diff) | |
download | perl-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-x | installperl | 1 |
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}"); } } |