ExtUtils::MakeMaker 6.10_03 -> 6.10_04

[p5sagit/p5-mst-13.2.git] / lib / ExtUtils / Install.pm

diff --git a/lib/ExtUtils/Install.pm b/lib/ExtUtils/Install.pm
index 68fe343..1037973 100644 (file)
--- 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;