[p5sagit/p5-mst-13.2.git] / Porting / manicheck

#!/usr/bin/perl

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 "$File::Find::name not in MANIFEST\n" if !$files{$x};
    },
}, ".";
Commit	Line	Data
4d1e77f9	1	#!/usr/bin/perl
93209f39	2
93209f39	3	use strict;
4d1e77f9	4	use warnings;
93209f39	5	use File::Find;
93209f39	6
4d1e77f9	7	open my $fh, 'MANIFEST' or die "Can't read MANIFEST: $!\n";
	8	my @files = map { (split)[0] } <$fh>;
	9	close $fh;
	10	for (@files) {
	11	print "$_ from MANIFEST doesn't exist\n" if ! -f;
93209f39	12	}
4d1e77f9	13	my %files = map { $_ => 1 } @files;
	14	find {
	15	wanted => sub {
	16	my $x = $File::Find::name; $x =~ s/^..//;
	17	return if -d;
	18	return if $_ eq '.gitignore';
	19	return if $x =~ /^\.git\b/;
	20	print "$File::Find::name not in MANIFEST\n" if !$files{$x};
	21	},
	22	}, ".";
93209f39	23