| Subject: | failed test. |
as it currently stands this prevents clean installs of most everything
on Win32, using the new 3.2701.
use Test::More tests => 1;
use File::Spec::Win32;
my $wdir = 'C:/strawberry';
$wdir =~ s[:][]g;
$wdir =~ /(.*)/;
my $result = File::Spec::Win32->catfile('C:/cache', $1);
ok( $result eq "C:\cache\C\strawberry", "Failed simple test got $result
expected C:\cache\C\strawberry" );
1;