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