[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.526,1.527

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

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;