1 files changed, 4 insertions, 0 deletions
diff --git a/installperl b/installperl
index 2774553bb1..b7df66f5c9 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;