3 use warnings FATAL => 'all';
4 use ExtUtils::Manifest qw(filecheck maniread maniskip manicheck mkmanifest);
7 local $ExtUtils::Manifest::Quiet = 1;
8 my $manimiss = ! -e 'MANIFEST';
10 my @extra = manicheck;
12 die "Files in MANIFEST are missing from file system:\n"
13 . join('', map " $_\n", @extra);
17 my @files = sort keys %$read;
20 for my $file (@files) {
21 if (my $other = $lc{lc $file}) {
22 die "ERROR: Multiple files only differing by case:\n\t$file\n\t$other\n";
24 $lc{lc $file} = $file;
27 my @missing = filecheck;
30 my @remove = grep $skip->($_), @files;
33 if !(@missing || @remove);
37 warn "Updating MANIFEST:\n";
39 warn "Go check it and retry.\n";