our $opt_t;
my @sources = @ARGV ? @ARGV : '.';
-die "Too many directories speficied without -t option\n"
+die "Too many directories specified without -t option\n"
if @sources != 1 and ! $opt_t;
@sources = map {
# Load the package details. All of them.
my %cpanversions;
-open my $fh, $packagefile or die $!;
+open my $fh, '<', $packagefile or die $!;
while (<$fh>) {
my ($p, $v) = split ' ';
next if 1../^\s*$/; # skip header
}
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 ($Modules{$dist}{MAINTAINER}):\n" unless ($distname_printed++);
+ print "\t$file: core=$vcore, cpan=$vcpan\n";
}
}
}