[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.436,1.437

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

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

Modified Files:
	Base.pm 
Log Message:
catdir() should do just fine here

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.436
retrieving revision 1.437
diff -u -d -r1.436 -r1.437
--- Base.pm	23 Jun 2005 00:35:14 -0000	1.436
+++ Base.pm	23 Jun 2005 00:46:16 -0000	1.437
@@ -2692,20 +2692,7 @@
   
   $self->log_verbose("    using default '$default'.\n");
   
-  return $self->_catprefix($rprefix, $default);
-}
-
-
-# From ExtUtils::MM_VMS::_catprefix(), but it's actually cross platform.
-sub _catprefix {
-  my($self, $rprefix, $default) = @_;
-  
-  # The "1" means don't look for a file, $rprefix is a directory.
-  my($rvol, @rdirs) = File::Spec->splitpath($rprefix, 1);
-  return File::Spec->catpath($rvol,
-			     File::Spec->catdir(@rdirs, $default),
-			     ''
-			    );
+  File::Spec->catdir($rprefix, $default),
 }