[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.487,1.488

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4832/lib/Module/Build

Modified Files:
	Base.pm 
Log Message:
Respect 'quiet' mode better

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.487
retrieving revision 1.488
diff -u -d -r1.487 -r1.488
--- Base.pm	27 Sep 2005 03:10:58 -0000	1.487
+++ Base.pm	30 Sep 2005 01:01:42 -0000	1.488
@@ -2286,14 +2286,14 @@
   my ($self) = @_;
   require ExtUtils::Install;
   $self->depends_on('build');
-  ExtUtils::Install::install($self->install_map, 1, 0, $self->{args}{uninst}||0);
+  ExtUtils::Install::install($self->install_map, !$self->quiet, 0, $self->{args}{uninst}||0);
 }
 
 sub ACTION_fakeinstall {
   my ($self) = @_;
   require ExtUtils::Install;
   $self->depends_on('build');
-  ExtUtils::Install::install($self->install_map, 1, 1, $self->{args}{uninst}||0);
+  ExtUtils::Install::install($self->install_map, !$self->quiet, 1, $self->{args}{uninst}||0);
 }
 
 sub ACTION_versioninstall {
@@ -3356,9 +3356,11 @@
 sub copy_if_modified {
   my $self = shift;
   my %args = (@_ > 3
-	      ? ( verbose => 1, @_ )
+	      ? ( @_ )
 	      : ( from => shift, to_dir => shift, flatten => shift )
 	     );
+  $args{verbose} = !$self->quiet
+    unless exists $args{verbose};
   
   my $file = $args{from};
   unless (defined $file and length $file) {