3 use warnings FATAL => 'all';
5 use ExtUtils::Manifest 'maniadd';
6 use Getopt::Long qw(:config gnu_getopt);
9 "d|distdir=s" => \my $distdir,
10 "m|manifest=s" => \my $manifest,
11 ) or die("Error in command line arguments\n");
12 if (defined $distdir) {
15 if (defined $manifest) {
16 $ExtUtils::Manifest::MANIFEST = $manifest;
19 for my $file (@ARGV) {
20 eval { maniadd({ $file => "$file file (added by Distar)"}) }
21 or print "Could not add $file to MANIFEST: $@\n";