[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.454,1.455

[Ken W. <kwi...@us...>]

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

Modified Files:
	Base.pm 
Log Message:
Fix a hardcoded slash problem in filenames

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.454
retrieving revision 1.455
diff -u -d -r1.454 -r1.455
--- Base.pm	5 Jul 2005 17:54:35 -0000	1.454
+++ Base.pm	5 Jul 2005 17:58:08 -0000	1.455
@@ -139,8 +139,9 @@
   $p->{perl} = $self->find_perl_interpreter
     or $self->log_warn("Warning: Can't locate your perl binary");
 
-  $p->{bindoc_dirs} ||= [ "$p->{blib}/script" ];
-  $p->{libdoc_dirs} ||= [ "$p->{blib}/lib", "$p->{blib}/arch" ];
+  my $blibdir = sub { File::Spec->catdir($p->{blib}, @_) };
+  $p->{bindoc_dirs} ||= [ $blibdir->("script") ];
+  $p->{libdoc_dirs} ||= [ $blibdir->("lib"), $blibdir->("arch") ];
 
   $p->{dist_author} = [ $p->{dist_author} ] if defined $p->{dist_author} and not ref $p->{dist_author};