[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.503,1.504

[Randy W. S. <si...@us...>]

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 &