diff options
| author | Gisle Aas <gisle@activestate.com> | 2006-04-04 08:36:02 +0000 |
|---|---|---|
| committer | Gisle Aas <gisle@activestate.com> | 2006-04-04 08:36:02 +0000 |
| commit | cb8845025fc6f1183f7120c6693dc548500a18f1 (patch) | |
| tree | ec0a4b88bc63ba30c66316765f1bfe3740056e60 /lib | |
| parent | 5e68dedda8d8415e33ef036fd72f4ef4b4e51b45 (diff) | |
| download | perl-cb8845025fc6f1183f7120c6693dc548500a18f1.tar.gz | |
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
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/ExtUtils/MM_Unix.pm | 13 |
1 files changed, 4 insertions, 9 deletions
diff --git a/lib/ExtUtils/MM_Unix.pm b/lib/ExtUtils/MM_Unix.pm index 5672c92448..37b45336ae 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}; } |