From: Steve Peters <steve@fisharerojo.org>
Date: Thu, 5 Jan 2006 14:33:16 +0000 (+0000)
Subject: Change installman to instantiate a new Pod::Man instance for each
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=571afc3fc130121663e0cb56810289ae2e02725e;p=p5sagit%2Fp5-mst-13.2.git

Change installman to instantiate a new Pod::Man instance for each
file processed.  This is now required with podlators-2.0.

p4raw-id: //depot/perl@26656
---

diff --git a/installman b/installman
index c736a9e..689b41b 100755
--- a/installman
+++ b/installman
@@ -187,6 +187,10 @@ sub pod2man {
     foreach my $page (@to_process) {
 	my($pod, $tmp, $manpage) = @$page;
 
+        my $parser = Pod::Man->new( section => $manext,
+                                    official=> 1,
+                                    center  => 'Perl Programmers Reference Guide'
+                                  );
 	my $xmanpage = $manpage;
 	$xmanpage =~ s/^\Q$opts{'destdir'}\E// if $opts{'destdir'};
         print "  $xmanpage\n";