Teach t/porting/filenames.t about Porting/MANIFEST.dev

Patch best viewed with -w

Author: demerphq

t/porting/filenames.t

@@ -31,24 +31,21 @@ use File::Basename;
 require './test.pl';
 
 
-my $manifest = '../MANIFEST';
+use ExtUtils::Manifest qw(maniread);
 
-open my $m, '<', $manifest or die "Can't open '$manifest': $!";
-my @files;
-while (<$m>) {
-    chomp;
-    my($path) = split /\t+/;
-    push @files, $path;
-
-}
-close $m or die $!;
+# Get MANIFEST
+$ExtUtils::Manifest::Quiet = 1;
+my @files = (keys(%{ maniread("../MANIFEST") }),
+             keys(%{ maniread("../Porting/MANIFEST.dev") }));
+@files = sort @files;
 
 plan(scalar @files);
 
 PATHNAME: for my $pathname (@files) {
     my @path_components = split('/',$pathname);
     my $filename = pop @path_components;
     for my $component (@path_components) {
+        next if $component eq ".github";
         if ($component =~ /\./) {
             fail("$pathname has directory components containing '.'");
             next PATHNAME;