blob: b544a12252f25952dc48b20fb083d992d9b87969 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
#!/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";
my @files = map { (split)[0] } <$fh>;
close $fh;
for (@files) {
print "$_ from MANIFEST doesn't exist\n" if ! -f;
}
my %files = map { $_ => 1 } @files;
find {
wanted => sub {
my $x = $File::Find::name; $x =~ s/^..//;
return if -d;
return if $_ eq '.gitignore';
return if $x =~ /^\.git\b/;
print "$x\t\tnot in MANIFEST\n" if !$files{$x};
},
}, ".";
|
