From: Martin Lichtin <lichtin@bivio.com>
Date: Wed, 1 Sep 1999 15:50:04 +0000 (+0200)
Subject: Re: [ID 19990829.001] ExtUtils::Install.pm, minor umask problem
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=239eb1337a0946dbbdb833f44469dc03c46acb59;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 19990829.001] ExtUtils::Install.pm, minor umask problem

To: jhi@iki.fi
CC: perl5-porters@perl.org
Message-ID: <37CD2F0C.944BFACE@bivio.com>

p4raw-id: //depot/cfgperl@4064
---

diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm
index 74bd99b..47bde0d 100644
--- a/lib/ExtUtils/Install.pm
+++ b/lib/ExtUtils/Install.pm
@@ -134,13 +134,13 @@ sub install {
 	}, ".");
 	chdir($cwd) or Carp::croak("Couldn't chdir to $cwd: $!");
     }
-    umask $umask unless $Is_VMS;
     if ($pack{'write'}) {
 	$dir = dirname($pack{'write'});
 	mkpath($dir,0,0755);
 	print "Writing $pack{'write'}\n";
 	$packlist->write($pack{'write'});
     }
+    umask $umask unless $Is_VMS;
 }
 
 sub directory_not_empty ($) {