[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.487,1.488
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-09-30 01:01:50
|
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) { |