make corecpan.pl output a bit more readable
authorJesse Vincent <jesse@bestpractical.com>
Thu, 1 Oct 2009 18:43:58 +0000 (03:43 +0900)
committerJesse Vincent <jesse@bestpractical.com>
Thu, 1 Oct 2009 18:43:58 +0000 (03:43 +0900)
Porting/corecpan.pl

index 647696b..0a6086c 100644 (file)
@@ -155,11 +155,12 @@ if ($opt_t) {
 }
 else {
     for my $dist (sort { lc $a cmp lc $b } keys %results) {
-       print "Module $dist...\n";
+       my $distname_printed = 0;
        for my $file (sort keys %{$results{$dist}}) {
            my ($vcore, $vcpan) = @{$results{$dist}{$file}}{@labels};
            if (our $opt_v or $vcore ne $vcpan) {
-               print "    $file: core=$vcore, cpan=$vcpan\n";
+               print "\n$dist:\n" unless ($distname_printed++);
+               print "\t$file: core=$vcore, cpan=$vcpan\n";
            }
        }
     }