X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=installperl;h=b7df66f5c9522b2eb7c0394dbb17f9a664eb44f5;hb=23131aa47a1f039c7b6f6bb5dd48b8406773ecac;hp=2774553bb1101bf84d5c7c801804bcf47730f81b;hpb=8a6cb2cbf33b292e9c5c2689417fb9f525f67df2;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/installperl b/installperl
index 2774553..b7df66f 100755
--- a/installperl
+++ b/installperl
@@ -30,6 +30,10 @@ use ExtUtils::Packlist;
 use Config;
 use subs qw(unlink link chmod);
 
+if ($Config{d_umask}) {
+    umask(022); # umasks like 077 aren't that useful for installations
+}
+
 $Is_NetWare = $Config{osname} eq 'NetWare';
 if ($Is_NetWare) {
 	$Is_W32 = 0;