[Module-build-checkins] Module-Build/t destinations.t,1.2,1.3

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

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' ),