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) {
|
