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 (file)
--- 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};
 }