Porting/core-cpan-diff now tells us who the upstream is for dual-lifed modules

diff --git a/Porting/core-cpan-diff b/Porting/core-cpan-diff
index 7dc907b..1da5ad7 100755 (executable)
--- a/Porting/core-cpan-diff
+++ b/Porting/core-cpan-diff
@@ -207,6 +207,9 @@ sub do_compare {
        if ($seen_dist{$dist}) {
            warn "WARNING: duplicate entry for $dist in $module\n"
        }
+
+       print $outfh "  upstream is: ".($m->{UPSTREAM} || 'UNKNOWN!')."\n";
+
        $seen_dist{$dist}++;
 
        my $cpan_dir;