[Module-build-checkins] Module-Build/t destinations.t,1.2,1.3
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-06-19 13:41:07
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9619/t Modified Files: destinations.t Log Message: Handle win32 drive letters better Index: destinations.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/destinations.t,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- destinations.t 8 Jun 2005 03:48:06 -0000 1.2 +++ destinations.t 19 Jun 2005 13:40:59 -0000 1.3 @@ -67,8 +67,9 @@ my $naive_prefix = sub { my ($path) = @_; + my $drive = ($path =~ s/^(\w:)// ? $1 : ''); # Win32 drive letters (my $bare = $path) =~ s!^\Q$site_prefix\E\b!!; - return catdir($prefix, $bare); + return catdir($drive . $prefix, $bare); }; ok( $m->install_destination( 'lib' ), |