Add the upstream status to the output of Porting/Maintainers for --opened.

[p5sagit/p5-mst-13.2.git] / Porting / Maintainers.pm

diff --git a/Porting/Maintainers.pm b/Porting/Maintainers.pm
index d3d1dbd..e457efc 100644 (file)
--- a/Porting/Maintainers.pm
+++ b/Porting/Maintainers.pm
@@ -240,7 +240,8 @@ sub show_results {
            if (defined $ModuleByFile{$file}) {
                my $module     = $ModuleByFile{$file};
                my $maintainer = $Modules{$ModuleByFile{$file}}{MAINTAINER};
-               printf "%-15s $module $maintainer $Maintainers{$maintainer}\n", $file;
+               my $upstream   = $Modules{$module}{UPSTREAM}||'unknown';
+               printf "%-15s [%-7s] $module $maintainer $Maintainers{$maintainer}\n", $file, $upstream;
            } else {
                printf "%-15s ?\n", $file;
            }