perl5160delta: Another XS bug

[perl5.git] / Porting / corecpan.pl

diff --git a/Porting/corecpan.pl b/Porting/corecpan.pl
index 41778c1..3a38d11 100755 (executable)
--- a/Porting/corecpan.pl
+++ b/Porting/corecpan.pl
@@ -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";
            }
        }