From: Steve Peters <steve@fisharerojo.org>
Date: Fri, 23 Dec 2005 00:06:58 +0000 (+0000)
Subject: Fix for pod2man() in ExtUtils::Command::MM to work with
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=66112e6bb03fbfd6d0ed24ae598b9937e2e4884c;p=p5sagit%2Fp5-mst-13.2.git

Fix for pod2man() in ExtUtils::Command::MM to work with
the Pod::Man 2.04.

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

diff --git a/lib/ExtUtils/Command/MM.pm b/lib/ExtUtils/Command/MM.pm
index 046fb8b..774e1b2 100644
--- a/lib/ExtUtils/Command/MM.pm
+++ b/lib/ExtUtils/Command/MM.pm
@@ -9,7 +9,7 @@ use vars qw($VERSION @ISA @EXPORT);
 
 @EXPORT  = qw(test_harness pod2man perllocal_install uninstall 
               warn_if_old_packlist);
-$VERSION = '0.05';
+$VERSION = '0.05_01';
 
 my $Is_VMS = $^O eq 'VMS';
 
@@ -117,8 +117,6 @@ sub pod2man {
     # compatibility.
     delete $options{lax};
 
-    my $parser = Pod::Man->new(%options);
-
     do {{  # so 'next' works
         my ($pod, $man) = splice(@ARGV, 0, 2);
 
@@ -128,6 +126,7 @@ sub pod2man {
 
         print "Manifying $man\n";
 
+        my $parser = Pod::Man->new(%options);
         $parser->parse_from_file($pod, $man)
           or do { warn("Could not install $man\n");  next };