Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9204/lib/Module/Build
Modified Files:
Base.pm
Log Message:
Fix buglet that stripped off everything after first dot (".") in a filename when generating html filename.
Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.526
retrieving revision 1.527
diff -u -d -r1.526 -r1.527
--- Base.pm 22 Nov 2005 10:51:14 -0000 1.526
+++ Base.pm 22 Nov 2005 11:31:46 -0000 1.527
@@ -2284,7 +2284,8 @@
foreach my $pod ( keys %$pods ) {
- my ($name, $path) = File::Basename::fileparse($pods->{$pod}, qr{\..*});
+ my ($name, $path) = File::Basename::fileparse($pods->{$pod},
+ qr{\.(?:pm|plx?|pod)});
my @dirs = File::Spec->splitdir( File::Spec->canonpath( $path ) );
pop( @dirs ) if $dirs[-1] eq File::Spec->curdir;
|
