#!/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;
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 '.gitignore';
+ return if $x =~ /^\.git\b/;
+ print "$x\t\tnot in MANIFEST\n" if !$files{$x};
},
}, ".";