skip the failing dynamic vs static tests on Win32

[perl5.git] / Porting / manicheck

diff --git a/Porting/manicheck b/Porting/manicheck
index 1b506d9..47bb2df 100644 (file)
--- a/Porting/manicheck
+++ b/Porting/manicheck
@@ -8,7 +8,7 @@ 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) {
@@ -19,8 +19,12 @@ find {
     wanted => sub {
         my $x = $File::Find::name; $x =~ s/^..//;
         return if -d;
+        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};
     },
 }, ".";