Test fixes to go along with longpath.inc patch

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510709061150t4838c7d4i4c5b3f1f7dc0edd1@mail.gmail.com>

p4raw-id: //depot/perl@31810

diff --git a/ext/Win32/t/GetLongPathName.t b/ext/Win32/t/GetLongPathName.t
index 22a2f02..834d8d1 100644 (file)
--- a/ext/Win32/t/GetLongPathName.t
+++ b/ext/Win32/t/GetLongPathName.t
@@ -37,7 +37,10 @@ if ($drive) {
     push @paths, $ENV{SystemRoot} if $ENV{SystemRoot};
 }
 my %expect;
-@expect{@paths} = map { my $x = $_; $x =~ s,(.[/\\])[/\\]+,$1,g; $x } @paths;
+@expect{@paths} = map { my $x = $_;
+                        $x =~ s,(.[/\\])[/\\]+,$1,g;
+                        $x =~ s,^c,C,;
+                        $x } @paths;
 
 plan tests => scalar(@paths);