Rely on C89 prototypes

[perl5.git] / Porting / corecpan.pl

diff --git a/Porting/corecpan.pl b/Porting/corecpan.pl
index 0a6086c..75b18ab 100755 (executable)
--- a/Porting/corecpan.pl
+++ b/Porting/corecpan.pl
@@ -44,7 +44,7 @@ our $opt_h and usage;
 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 {
@@ -58,7 +58,7 @@ our $opt_f || !-f $packagefile and get_package_details;
 
 # 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
@@ -159,7 +159,7 @@ else {
        for my $file (sort keys %{$results{$dist}}) {
            my ($vcore, $vcpan) = @{$results{$dist}{$file}}{@labels};
            if (our $opt_v or $vcore ne $vcpan) {
-               print "\n$dist:\n" unless ($distname_printed++);
+               print "\n$dist ($Modules{$dist}{MAINTAINER}):\n" unless ($distname_printed++);
                print "\t$file: core=$vcore, cpan=$vcpan\n";
            }
        }