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);
19 my @missing = manicheck;
20 my @remove = grep $skip->($_), sort keys %$read;
23 if !(@missing || @remove);
27 warn "Updating MANIFEST:\n";
29 warn "Go check it and retry.\n";