[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.436,1.437
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-06-23 00:46:29
|
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), } |