Commit | Line | Data |
5baee32c |
1 | #!/usr/bin/env perl |
2 | use strict; |
3 | use warnings FATAL => 'all'; |
4 | use ExtUtils::Manifest qw(filecheck maniread maniskip manicheck mkmanifest); |
5 | |
6 | { |
7 | local $ExtUtils::Manifest::Quiet = 1; |
8 | my $manimiss = ! -e 'MANIFEST'; |
9 | if (-e 'MANIFEST') { |
10 | my @extra = manicheck; |
11 | if (@extra) { |
12 | die "Files in MANIFEST are missing from file system:\n" |
13 | . join('', map " $_\n", @extra); |
14 | } |
15 | |
16 | my $read = maniread; |
17 | my $skip = maniskip; |
18 | |
89ed5872 |
19 | my @missing = filecheck; |
5baee32c |
20 | my @remove = grep $skip->($_), sort keys %$read; |
21 | |
22 | exit 0 |
23 | if !(@missing || @remove); |
24 | } |
25 | } |
26 | |
27 | warn "Updating MANIFEST:\n"; |
28 | mkmanifest; |
29 | warn "Go check it and retry.\n"; |
30 | exit 1; |