[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.340.2.20,1.340.2.21

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

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20437/lib/Module/Build

Modified Files:
      Tag: release-0_26_branch
	Base.pm 
Log Message:
Be smarter about constructing the 'podpath' argument to Pod::Html.

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.340.2.20
retrieving revision 1.340.2.21
diff -u -d -r1.340.2.20 -r1.340.2.21
--- Base.pm	9 Feb 2005 09:05:03 -0000	1.340.2.20
+++ Base.pm	9 Feb 2005 10:12:00 -0000	1.340.2.21
@@ -1746,6 +1746,12 @@
                                   @{$self->bindoc_dirs} ],
                                 exclude => [ qr/\.(?:bat|com|html)$/ ] );
 
+  my $podpath = join ':',
+                map  $_->[1],
+                grep -e $_->[0],
+                map  [File::Spec->catdir($self->blib, $_), $_],
+                qw( script lib );
+
   my $htmldir = File::Spec::Unix->catdir($self->blib, 'html');
   unless (-d $htmldir) {
     File::Path::mkpath($htmldir, 0, 0755) or die "Couldn't mkdir $htmldir: $!";
@@ -1792,7 +1798,7 @@
     my @opts = (
                 '--flush',
                 "--title=$title",
-                '--podpath=lib:script',
+                "--podpath=$podpath",
                 "--infile=$infile",
                 "--outfile=$outfile",
                 '--podroot=' . $self->blib,