From 02bc0c09b2a02ba62249521fe20a53b8d033c440 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Thu, 5 Jan 2006 14:36:40 +0000
Subject: Remove old Pod::Man parser creation. Fix a run-time warning.

p4raw-id: //depot/perl@26657
---
 installman | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

(limited to 'installman')

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
-- 
cgit v1.2.1