From: Andreas König <a.koenig@mind.de>
Date: Sun, 29 Oct 2000 22:05:59 +0000 (+0100)
Subject: [Chris Winters <cwinters@intes.net>] patch to ExtUtils::Manifest
X-Git-Tag: accepted/trunk/20130322.191538~33806
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=553c0e07cf3a4f9abe248feb960ff8fdf7a396bb;p=platform%2Fupstream%2Fperl.git

[Chris Winters <cwinters@intes.net>] patch to ExtUtils::Manifest
Message-ID: <m3snpfqrwo.fsf@ak-71.mind.de>

p4raw-id: //depot/perl@7489
---

diff --git a/lib/ExtUtils/Manifest.pm b/lib/ExtUtils/Manifest.pm
index 28b7053..80f332c 100644
--- a/lib/ExtUtils/Manifest.pm
+++ b/lib/ExtUtils/Manifest.pm
@@ -187,13 +187,13 @@ sub manicopy {
     require File::Basename;
     my(%dirs,$file);
     $target = VMS::Filespec::unixify($target) if $Is_VMS;
-    File::Path::mkpath([ $target ],1,$Is_VMS ? undef : 0755);
+    File::Path::mkpath([ $target ],! $Quiet,$Is_VMS ? undef : 0755);
     foreach $file (keys %$read){
 	$file = VMS::Filespec::unixify($file) if $Is_VMS;
 	if ($file =~ m!/!) { # Ilya, that hurts, I fear, or maybe not?
 	    my $dir = File::Basename::dirname($file);
 	    $dir = VMS::Filespec::unixify($dir) if $Is_VMS;
-	    File::Path::mkpath(["$target/$dir"],1,$Is_VMS ? undef : 0755);
+	    File::Path::mkpath(["$target/$dir"],! $Quiet,$Is_VMS ? undef : 0755);
 	}
 	cp_if_diff($file, "$target/$file", $how);
     }