This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
l1_char_class_tab.h: include multi-char folds
[perl5.git]
/
mkppport
diff --git
a/mkppport
b/mkppport
index
6d65992
..
55a74fa
100644
(file)
--- a/
mkppport
+++ b/
mkppport
@@
-2,7
+2,6
@@
use strict;
use warnings;
use Getopt::Long;
use warnings;
use Getopt::Long;
-use Pod::Usage;
use File::Spec;
use File::Compare qw( compare );
use File::Copy qw( copy );
use File::Spec;
use File::Compare qw( compare );
use File::Copy qw( copy );
@@
-22,7
+21,10
@@
my %opt = (
clean => 0,
);
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});
my $absroot = File::Spec->rel2abs($rootdir);
my @destdirs = readlist($opt{list});