Porting/manicheck

   1 #!/usr/bin/perl
   2
   3 # output a list of:
   4 #  a) files listed in MANIFEST which don't exist
   5 #  b) files which exist but which aren't in MANIFEST
   6
   7 use strict;
   8 use warnings;
   9 use File::Find;
  10
  11 open my $fh, 'MANIFEST' or die "Can't read MANIFEST: $!\n";
  12 my @files = map { (split)[0] } <$fh>;
  13 close $fh;
  14 for (@files) {
  15     print "$_ from MANIFEST doesn't exist\n" if ! -f;
  16 }
  17 my %files = map { $_ => 1 } @files;
  18 find {
  19     wanted => sub {
  20         my $x = $File::Find::name; $x =~ s/^..//;
  21         return if -d;
  22         return if $_ eq '.gitignore';
  23         return if $x =~ /^\.git\b/;
  24         print "$x\t\tnot in MANIFEST\n" if !$files{$x};
  25     },
  26 }, ".";
  27