diff options
author | Nicholas Clark <nick@ccl4.org> | 2013-07-13 20:50:44 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2013-07-23 13:39:51 +0200 |
commit | a01f566143b97d5d074775e31bd511a83044cab6 (patch) | |
tree | 508cba8c54aece4b657dd07cde57bdb4297f5c66 /installman | |
parent | 4c4326140484b090df4dd2ed7165e669991744cc (diff) | |
download | perl-a01f566143b97d5d074775e31bd511a83044cab6.tar.gz |
Move the wrapper for File::Path::mkpath() to install_lib.pl
installperl and installman call File::Path::mkpath with identical arguments
and options, so move the repeated code into a single place.
Diffstat (limited to 'installman')
-rwxr-xr-x | installman | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/installman b/installman index adb76f86e1..201be21da2 100755 --- a/installman +++ b/installman @@ -8,7 +8,6 @@ BEGIN { use strict; use Getopt::Long; -require File::Path; use ExtUtils::Packlist; use Pod::Man; use vars qw(%opts $packlist); @@ -119,7 +118,7 @@ sub pod2man { } } - File::Path::mkpath($mandir, $opts{verbose}, 0777) unless $opts{notify}; + mkpath($mandir); foreach my $manpage (sort keys %$modpods) { my $mod = $modpods->{$manpage}; |