Porting/Maintainers.pl - Remove redundant EXCLUDED files

Also add extra verbose output to Porting/core-cpan-diff to identify such
cases.

1 files changed, 18 insertions, 0 deletions

diff --git a/Porting/core-cpan-diff b/Porting/core-cpan-diff
index b3afa30e9f..275394508f 100644
--- a/Porting/core-cpan-diff
+++ b/Porting/core-cpan-diff
@@ -397,6 +397,24 @@ EOF
                 print $outfh "  Perl only: $_\n" unless $use_diff;
             }
         }
+        if ( $verbose ) {
+            foreach my $exclude (@$excluded) {
+                my $seen = 0;
+                foreach my $cpan_file (@cpan_files) {
+                    # may be a simple string to match exactly, or a pattern
+                    if ( ref $exclude ) {
+                        $seen = 1 if $cpan_file =~ $exclude;
+                    }
+                    else {
+                        $seen = 1 if $cpan_file eq $exclude;
+                    }
+                    last if $seen;
+                }
+                if ( not $seen ) {
+                    print $outfh "  Unnecessary exclusion: $exclude\n";
+                }
+            }
+        }
     }
 }