[libdevel-cover-perl] 05/32: Reduce verbosity unless under -verbose.
Axel Beckert
abe at deuxchevaux.org
Sun Apr 26 22:26:35 UTC 2015
This is an automated email from the git hooks/post-receive script.
abe pushed a commit to annotated tag v1.18
in repository libdevel-cover-perl.
commit 4c5565c2a37700b4b0d665de2b8c0bc004f50c72
Author: Paul Johnson <paul at pjcj.net>
Date: Sat Oct 4 14:06:27 2014 +0100
Reduce verbosity unless under -verbose.
---
lib/Devel/Cover/Collection.pm | 8 ++++----
utils/dc | 2 +-
2 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/lib/Devel/Cover/Collection.pm b/lib/Devel/Cover/Collection.pm
index 8eddc92..fbfdf9d 100644
--- a/lib/Devel/Cover/Collection.pm
+++ b/lib/Devel/Cover/Collection.pm
@@ -262,7 +262,7 @@ sub write_json {
keys %$m
};
} else {
- print "Cannot process $module: ", Dumper $m;
+ print "Cannot process $module: ", Dumper $m if $self->verbose;
}
};
# print Dumper $vars, $results;
@@ -309,7 +309,7 @@ sub generate_html {
for my $module (@modules) {
my $cover = "$d/$module/cover.json";
next unless -e $cover;
- say "Adding $module";
+ say "Adding $module" if $self->verbose;
my $io = Devel::Cover::DB::IO::JSON->new;
my $json = $io->read($cover);
@@ -428,10 +428,10 @@ sub cover_modules {
=~ s/\.(?:zip|tgz|(?:tar\.(?:gz|bz2)))$//r;
if ($self->is_covered($dir)) {
$self->set_covered($dir);
- say "$module already covered";
+ say "$module already covered" if $self->verbose;
return;
} elsif ($self->is_failed($dir)) {
- say "$module already failed";
+ say "$module already failed" if $self->verbose;
return;
}
diff --git a/utils/dc b/utils/dc
index 25dab8f..65a90cb 100755
--- a/utils/dc
+++ b/utils/dc
@@ -79,7 +79,7 @@ case "$1" in
--memory=1g \
$DOCKER_IMAGE dc cpancover-build-module $module)
# https://github.com/dotcloud/docker/issues/3986
- $DOCKER wait "$name"
+ $DOCKER wait "$name" > /dev/null
if [ $? = 0 ]; then
$DOCKER logs "$name" > "$staging/$name.out"
local_staging="$staging/$name"
--
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdevel-cover-perl.git
More information about the Pkg-perl-cvs-commits
mailing list