perl5.git.perl.org Git - perl5.git/blame_incremental

... / ...

Commit	Line	Data
	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