X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/b286197009ac308fc656630edad2ba5390660499..5c9f4bd2be62c07fee7298eec0ab8253d15b297a:/mkppport diff --git a/mkppport b/mkppport index 09dcf89..55a74fa 100644 --- a/mkppport +++ b/mkppport @@ -2,7 +2,6 @@ use strict; use warnings; use Getopt::Long; -use Pod::Usage; use File::Spec; use File::Compare qw( compare ); use File::Copy qw( copy ); @@ -12,7 +11,7 @@ sub iterdirs(&); my $rootdir = dirname($0); -unshift @INC, File::Spec->catdir($rootdir, qw(ext ExtUtils-MakeMaker t lib)); +unshift @INC, File::Spec->catdir($rootdir, qw(cpan ExtUtils-MakeMaker t lib)); eval q{ use MakeMaker::Test::Utils qw( which_perl ) }; $@ and die $@; @@ -22,7 +21,10 @@ my %opt = ( clean => 0, ); -GetOptions(\%opt, qw( clean list=s )) or pod2usage(2); +unless ( GetOptions(\%opt, qw( clean list=s )) ) { + require Pod::Usage; + Pod::Usage::pod2usage(2); +} my $absroot = File::Spec->rel2abs($rootdir); my @destdirs = readlist($opt{list});