Make sure there's no superfluous Maintainer.pl entries

1 files changed, 19 insertions, 1 deletions

diff --git a/Porting/Maintainers.pm b/Porting/Maintainers.pm
index f1016b44eb..c98413a241 100644
--- a/Porting/Maintainers.pm
+++ b/Porting/Maintainers.pm
@@ -314,8 +314,9 @@ sub show_results {
 			    : sub { /\.(?:[chty]|p[lm]|xs)\z/msx },
 			@Files
 		    );
-		} else { 
+		} else {
 		    duplicated_maintainers();
+		    superfluous_maintainers();
 		}
     } elsif (@Files) {
 	my $ModuleByFile = files_to_modules(@Files);
@@ -391,6 +392,23 @@ sub missing_maintainers {
     find sub { warn_maintainer($File::Find::name) if $check->() }, @dir if @dir;
 }
 
+sub superfluous_maintainers {
+    maintainers_files();
+    for my $f (keys %files) {
+	if ($TapOutput) {
+	    if ($MANIFEST{$f}) {
+		print "ok ".++$TestCounter." - Maintained file $f appears in MANIFEST\n";
+	    } else {
+		print "not ok ".++$TestCounter." - File $f has has a maintainer but is not in MANIFEST\n";
+	    }
+	} else {
+	    if (!$MANIFEST{$f}) {
+		warn "File $f has has a maintainer but is not in MANIFEST\n";
+	    }
+	}
+    }
+}
+
 sub finish_tap_output {
     print "1..".$TestCounter."\n"; 
 }