Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17681/lib/Module/Build
Modified Files:
Base.pm
Log Message:
Quit earlier in ACTION_manpages & ACTION_html if the respective features are disabled.
Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.503
retrieving revision 1.504
diff -u -d -r1.503 -r1.504
--- Base.pm 23 Oct 2005 02:18:15 -0000 1.503
+++ Base.pm 23 Oct 2005 03:06:01 -0000 1.504
@@ -2081,6 +2081,8 @@
sub ACTION_manpages {
my $self = shift;
+ return unless $self->_mb_feature('manpage_support');
+
if ( $self->invoked_action ne 'manpages' ) {
foreach my $type ( qw(bin lib) ) {
my $files = $self->_find_pods( $self->{properties}{"${type}doc_dirs"},
@@ -2093,10 +2095,8 @@
$self->depends_on('code');
- if ( $self->_mb_feature('manpage_support') ) {
- $self->manify_bin_pods;
- $self->manify_lib_pods;
- }
+ $self->manify_bin_pods;
+ $self->manify_lib_pods;
}
sub manify_bin_pods {
@@ -2171,6 +2171,8 @@
sub ACTION_html {
my $self = shift;
+ return unless $self->_mb_feature('HTML_support');
+
if ( $self->invoked_action ne 'html' ) {
foreach my $type ( qw(bin lib) ) {
my $files = $self->_find_pods( $self->{properties}{"${type}doc_dirs"},
@@ -2182,7 +2184,7 @@
$self->depends_on('code');
- $self->htmlify_pods if $self->_mb_feature('HTML_support');
+ $self->htmlify_pods;
}
@@ -3156,7 +3158,7 @@
my $localdir = File::Spec->catdir( $blib, $type );
next unless -e $localdir;
- if (my $dest = $self->install_destination($type) ) {
+ if (my $dest = $self->install_destination($type)) {
$map{$localdir} = $dest;
} else {
# Platforms like Win32, MacOS, etc. may not build man pages &
|
