Fix installman ignoring --silent
authorDagfinn Ilmari Mannsåker <ilmari@ilmari.org>
Sat, 26 Jan 2013 17:01:25 +0000 (17:01 +0000)
committerAaron Crane <arc@cpan.org>
Sun, 27 Jan 2013 10:50:05 +0000 (10:50 +0000)
installman

index 5f0a7a6..cd8b094 100755 (executable)
@@ -139,7 +139,7 @@ sub pod2man {
 
        unless ($has_pod)
        {
-           warn "no documentation in $mod\n";
+           warn "no documentation in $mod\n" unless $opts{silent};
            next;
        }
 
@@ -155,7 +155,7 @@ sub pod2man {
                                   );
        my $xmanpage = $manpage;
        $xmanpage =~ s/^\Q$opts{'destdir'}\E// if $opts{'destdir'};
-        print "  $xmanpage\n";
+        print "  $xmanpage\n" unless $opts{silent};
         if (!$opts{notify} && $parser->parse_from_file($mod, $tmp)) {
             if (-s $tmp) {
                 if (rename($tmp, $manpage)) {