From: Gisle Aas <gisle@activestate.com>
Date: Tue, 4 Apr 2006 08:36:02 +0000 (+0000)
Subject: Change 27592 disabled the building of manpages for non core-extensions
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=cb8845025fc6f1183f7120c6693dc548500a18f1;p=p5sagit%2Fp5-mst-13.2.git

Change 27592 disabled the building of manpages for non core-extensions
The init_MAN3PODS method need to be called when no INSTALLMAN3DIR is
present in the first place.

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

diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm
index 5672c92..37b4533 100644
--- a/lib/ExtUtils/MM_Unix.pm
+++ b/lib/ExtUtils/MM_Unix.pm
@@ -1305,19 +1305,14 @@ sub init_MANPODS {
 
     # Set up names of manual pages to generate from pods
     foreach my $man (qw(MAN1 MAN3)) {
-	$self->{"BUILD${man}PODS"} = 1;
-
 	unless ($self->{"${man}PODS"}) {
 	    $self->{"${man}PODS"} = {};
-	    $self->{"BUILD${man}PODS"} = 0 if
-              $self->{"INSTALL${man}DIR"} =~ /^(none|\s*)$/;
+	    unless ($self->{"INSTALL${man}DIR"} =~ /^(none|\s*)$/) {
+		my $init = "init_${man}PODS";
+		$self->$init();
+	    }
 	}
-	$self->{"BUILD${man}PODS"} = 0 if
-	    scalar(keys %{$self->{"${man}PODS"}}) == 0;
     }
-
-    $self->init_MAN1PODS() if $self->{BUILDMAN1PODS};
-    $self->init_MAN3PODS() if $self->{BUILDMAN3PODS};
 }