From: 0000-Admin <root@egg.karlov.mff.cuni.cz>
Date: Wed, 20 Jun 2001 14:11:49 +0000 (+0200)
Subject: [ID 20010621.002] UnixWare 7.1.1 and Perl-5.6.1 problems
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=791b4ad3d4885818274b272624d60d233f36ad2d;p=p5sagit%2Fp5-mst-13.2.git

[ID 20010621.002] UnixWare 7.1.1 and Perl-5.6.1 problems
Message-Id: <200106201211.f5KCBnm24320@egg.karlov.mff.cuni.cz>

Setting umask to something friendlier.

p4raw-id: //depot/perl@10783
---

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.
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;