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,
|
