[libdevel-cover-perl] 05/32: Reduce verbosity unless under -verbose.

[Axel Beckert]

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 <p...@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

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits