Add --html_links=0, greatly speeding up tests.

Author: kenahoo

Changes

@@ -16,6 +16,10 @@ Revision history for Perl extension Module::Build.
   - Added an 'extra_manify_args' parameter to facilitate man pages
     containing Unicode. [Joenio Costa]
 
+  - Added an '--html_links 0' argument for the 'html' action, which
+    can hugely speed things up.  The main effect is speeding up the
+    M::B tests themselves.
+
 0.4005 - Thu Apr 25 15:10:14 CEST 2013
 
   [ENHANCEMENTS]

lib/Module/Build.pm

@@ -362,6 +362,12 @@ C<Config.pm>.  You can also supply or override install paths on the
 command line by specifying C<install_path> values for the C<binhtml>
 and/or C<libhtml> installation targets.
 
+With an optional C<html_links> argument set to a false value, you can
+skip the search for other documentation to link to, because that can
+waste a lot of time if there aren't any links to generate anyway:
+
+  ./Build html --html_links 0
+
 =item install
 
 [version 0.01]

lib/Module/Build/Base.pm

@@ -3373,15 +3373,18 @@ sub htmlify_pods {
               : $self->original_prefix('core');
 
   my $htmlroot = $self->install_sets('core')->{libhtml};
-  my @podpath = ( (map { File::Spec->abs2rel($_ ,$podroot) } grep { -d  }
-    ( $self->install_sets('core', 'lib'), # lib
-      $self->install_sets('core', 'bin'), # bin
-      $self->install_sets('site', 'lib'), # site/lib
-    ) ), File::Spec->rel2abs($self->blib) );
+  my $podpath;
+  unless (defined $self->args('html_links') and !$self->args('html_links')) {
+    my @podpath = ( (map { File::Spec->abs2rel($_ ,$podroot) } grep { -d  }
+                     ( $self->install_sets('core', 'lib'), # lib
+                       $self->install_sets('core', 'bin'), # bin
+                       $self->install_sets('site', 'lib'), # site/lib
+                     ) ), File::Spec->rel2abs($self->blib) );
 
-  my $podpath = $ENV{PERL_CORE}
-              ? File::Spec->catdir($podroot, 'lib')
-              : join(":", map { tr,:\\,|/,; $_ } @podpath);
+    $podpath = $ENV{PERL_CORE}
+      ? File::Spec->catdir($podroot, 'lib')
+        : join(":", map { tr,:\\,|/,; $_ } @podpath);
+  }
 
   my $blibdir = join('/', File::Spec->splitdir(
     (File::Spec->splitpath(File::Spec->rel2abs($htmldir),1))[1]),''
@@ -3431,7 +3434,7 @@ sub htmlify_pods {
       my $depth = @rootdirs + @dirs;
       my %opts = ( infile => $infile,
         outfile => $tmpfile,
-        podpath => $podpath,
+        ( defined($podpath) ? (podpath => $podpath) : ()),
         podroot => $podroot,
         index => 1,
         depth => $depth,
@@ -3451,7 +3454,7 @@ sub htmlify_pods {
 
       my @opts = (
         "--title=$title",
-        "--podpath=$podpath",
+        ( defined($podpath) ? "--podpath=$podpath" : ()),
         "--infile=$infile",
         "--outfile=$tmpfile",
         "--podroot=$podroot",

t/ppm.t

@@ -83,6 +83,7 @@ my $mb = Module::Build->new_from_context(
       ( installsitehtml1dir => catdir($tmp, 'site', 'html'),
         installsitehtml3dir => catdir($tmp, 'site', 'html') ) : () ),
   },
+  html_links => 0,
 );
 
 
@@ -163,6 +164,7 @@ SKIP: {
       installsiteman1dir  => catdir($tmp, 'site', 'man', 'man1'),
       installsiteman3dir  => catdir($tmp, 'site', 'man', 'man3'),
     },
+    html_links => 0,
   );
 
   $mb->dispatch('ppmdist');