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 (file)
--- 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 ($) {