diff options
| -rwxr-xr-x | installman | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/installman b/installman index 689b41b148..d27271e687 100755 --- a/installman +++ b/installman @@ -44,6 +44,7 @@ GetOptions( \%opts, destdir:s notify n help silent S verbose V)) || die $usage; die $usage if $opts{help}; +$opts{destdir} //= ''; $opts{man1dir} = "$opts{destdir}$Config{'installman1dir'}" unless defined($opts{man1dir}); @@ -180,10 +181,6 @@ sub pod2man { push @to_process, [$mod, $tmp, $manpage]; } - my $parser = Pod::Man->new( section => $manext, - official=> 1, - center => 'Perl Programmers Reference Guide' - ); foreach my $page (@to_process) { my($pod, $tmp, $manpage) = @$page; @@ -210,7 +207,6 @@ $packlist->write() unless $opts{notify}; print " Installation complete\n" if $opts{verbose}; exit 0; - ############################################################################### # Utility subroutines from installperl |