X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=installman;h=6e007748451b0f59494e8dfa3a82fc79925b6e83;hb=23131aa47a1f039c7b6f6bb5dd48b8406773ecac;hp=dad91820cf3fe4bde1627fcaf391d6f720ac2bad;hpb=93fe06f7e621580f8d9f3c5f09bdd8f2131c2336;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/installman b/installman
index dad9182..6e00774 100755
--- a/installman
+++ b/installman
@@ -11,6 +11,10 @@ use subs qw(unlink chmod rename link);
 use vars qw($packlist @modpods);
 require Cwd;
 
+if ($Config{d_umask}) {
+    umask(022); # umasks like 077 aren't that useful for installations
+}
+
 $ENV{SHELL} = 'sh' if $^O eq 'os2';
 
 my $ver = $Config{version};     # Not used presently.