diff options
| author | Michael G. Schwern <schwern@pobox.com> | 2003-05-22 19:10:46 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-05-23 13:06:25 +0000 |
| commit | 2530b651d288d7db98df4c0991f07a783a1cd32c (patch) | |
| tree | 46e6b3c07f57558c3f532f12d621104bc7c9d4c8 /lib/ExtUtils/Install.pm | |
| parent | a0d8a30e4d6cdcb83a19818856ccc52190cdd95f (diff) | |
| download | perl-2530b651d288d7db98df4c0991f07a783a1cd32c.tar.gz | |
ExtUtils::MakeMaker 6.10_03 -> 6.10_04
Message-ID: <20030523091046.GB11662@windhund.schwern.org>
p4raw-id: //depot/perl@19594
Diffstat (limited to 'lib/ExtUtils/Install.pm')
| -rw-r--r-- | lib/ExtUtils/Install.pm | 19 |
1 files changed, 5 insertions, 14 deletions
diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm index 68fe343ba2..103797353f 100644 --- a/lib/ExtUtils/Install.pm +++ b/lib/ExtUtils/Install.pm @@ -108,20 +108,11 @@ sub install { for (readdir DIR) { next if $_ eq $Curdir || $_ eq $Updir || $_ eq ".exists"; my $targetdir = install_rooted_dir($from_to{$source_dir_or_file}); - if ($nonono) { - if (!-w $targetdir) { - print "mkpath($targetdir)\n" if $verbose>1; - } - last; - } else { - if (-w $targetdir || - mkpath($targetdir)) { - last; - } else { - warn "Warning: You do not have permissions to " . - "install into $from_to{$source_dir_or_file}" - unless $warn_permissions++; - } + mkpath($targetdir) unless $nonono; + if (!$nonono && !-w $targetdir) { + warn "Warning: You do not have permissions to " . + "install into $from_to{$source_dir_or_file}" + unless $warn_permissions++; } } closedir DIR; |