4 # a) files listed in MANIFEST which don't exist
5 # b) files which exist but which aren't in MANIFEST
11 open my $fh, 'MANIFEST' or die "Can't read MANIFEST: $!\n";
12 my @files = map { (split)[0] } <$fh>;
15 print "$_ from MANIFEST doesn't exist\n" if ! -f;
17 my %files = map { $_ => 1 } @files;
20 my $x = $File::Find::name; $x =~ s/^..//;
22 return if $_ eq '.gitignore';
23 return if $x =~ /^\.git\b/;
24 print "$File::Find::name not in MANIFEST\n" if !$files{$x};