X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Makefile.PL;h=ae6ba95cc651ea38f35c5a357951ca92e2c93a11;hb=4f1bda9c141ad0ba202a91b5674b2d214bbd343f;hp=baa44d1b3af073c199cacb7ff011011efd33dc3d;hpb=605be787558cfcee1aec714a6df0d0091a654e4d;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/Makefile.PL b/Makefile.PL index baa44d1..ae6ba95 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -7,14 +7,14 @@ use inc::Module::Install 1.00; use Getopt::Long(); my $getopt = Getopt::Long::Parser->new( - config => [qw/gnu_getopt bundling_override no_ignore_case pass_through/] + config => [qw/gnu_getopt bundling_override no_ignore_case pass_through/] ); my $args = { - skip_author_deps => undef, + skip_author_deps => undef, }; $getopt->getoptions($args, 'skip_author_deps'); if (@ARGV) { - warn "\nIgnoring unrecognized option(s): @ARGV\n\n"; + warn "\nIgnoring unrecognized option(s): @ARGV\n\n"; } use FindBin; @@ -84,8 +84,16 @@ See also the "Changes" file for the last few revisions. EOF if ($Module::Install::AUTHOR && ! $args->{skip_author_deps}) { - eval { require Module::Install::ReadmeFromPod } - or die "\nYou need Module::Install::ReadmeFromPod installed to run this Makefile.PL in author mode:\n\n$@\n"; + my @missing_plugins; + for my $plugin (qw(ReadmeFromPod AuthorTests)) { + eval "require Module::Install::$plugin" and next; + push @missing_plugins, "Module::Install::$plugin"; + chomp(my $err = $@); + $missing_plugins[-1] .= " ($err)" + unless $err =~ m{^Can't locate Module/Install/$plugin.pm in \@INC}; + } + die "\nYou need to install the following modules to run this Makefile.PL in author mode:\n\n", join("\n", @missing_plugins), "\n\n" + if @missing_plugins; warn "\n*** AUTHOR MODE: some optional dependencies converted to hard requires.\n\n"; @@ -104,6 +112,14 @@ if ($Module::Install::AUTHOR && ! $args->{skip_author_deps}) { author_tests( 'xt' ); readme_from( 'lib/DBIx/Class/Schema/Loader.pm' ); realclean_files( qw[README MANIFEST lib/DBIx/Class/Schema/Loader/Optional/Dependencies.pod] ); + postamble <