Change 27708 by [EMAIL PROTECTED] on 2006/04/04 08:36:02
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.
Affected files ...
... //depot/perl/lib/ExtUtils/MM_Unix.pm#212 edit
Differences ...
==== //depot/perl/lib/ExtUtils/MM_Unix.pm#212 (text) ====
Index: perl/lib/ExtUtils/MM_Unix.pm
--- perl/lib/ExtUtils/MM_Unix.pm#211~27592~ 2006-03-23 14:13:13.000000000
-0800
+++ perl/lib/ExtUtils/MM_Unix.pm 2006-04-04 01:36:02.000000000 -0700
@@ -1305,19 +1305,14 @@
# 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};
}
End of Patch.
