diff options
| author | Martin Lichtin <lichtin@bivio.com> | 1999-09-01 17:50:04 +0200 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-09-01 13:56:14 +0000 |
| commit | 239eb1337a0946dbbdb833f44469dc03c46acb59 (patch) | |
| tree | 7217f668a30e0b2962327a1042bacd5f43191abb /lib/ExtUtils | |
| parent | 77166d5172a44cfc550ab7460a594b9190352364 (diff) | |
| download | perl-239eb1337a0946dbbdb833f44469dc03c46acb59.tar.gz | |
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
Diffstat (limited to 'lib/ExtUtils')
| -rw-r--r-- | lib/ExtUtils/Install.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm index 74bd99b147..47bde0deb0 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 ($) { |