X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/4d1e77f96f82d16036b88dca7b4fa2cd3a59bf21..78097f58205817e135d116e8f7fd21d4118c9b6e:/Porting/manicheck

diff --git a/Porting/manicheck b/Porting/manicheck
index 0439292..47bb2df 100644
--- a/Porting/manicheck
+++ b/Porting/manicheck
@@ -1,10 +1,14 @@
 #!/usr/bin/perl
 
+# output a list of:
+#  a) files listed in MANIFEST which don't exist
+#  b) files which exist but which aren't in MANIFEST
+
 use strict;
 use warnings;
 use File::Find;
 
-open my $fh, 'MANIFEST' or die "Can't read MANIFEST: $!\n";
+open my $fh, '<', 'MANIFEST' or die "Can't read MANIFEST: $!\n";
 my @files = map { (split)[0] } <$fh>;
 close $fh;
 for (@files) {
@@ -15,9 +19,13 @@ find {
     wanted => sub {
         my $x = $File::Find::name; $x =~ s/^..//;
         return if -d;
-	return if $_ eq '.gitignore';
-	return if $x =~ /^\.git\b/;
-        print "$File::Find::name not in MANIFEST\n" if !$files{$x};
+        return if $_ eq '.mailmap';
+        return if $_ eq '.gitignore';
+        return if $_ eq '.gitattributes';
+        return if $_ eq '.git_patch';
+        return if $x =~ /^\.git\b/;
+        return if $x =~ m{^\.github/};
+        print "$x\t\tnot in MANIFEST\n" if !$files{$x};
     },
 }, ".";