embed.fnc: Mark unlnk as Core only

[perl5.git] / Porting / manicheck

diff --git a/Porting/manicheck b/Porting/manicheck
index 0439292..47bb2df 100644 (file)
--- 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};
     },
 }, ".";