From 7fdd88d49ac01332a471908781346d7a74abaf7e Mon Sep 17 00:00:00 2001
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Date: Thu, 6 Sep 2007 10:50:15 -0400
Subject: [PATCH] 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
---
 ext/Win32/t/GetLongPathName.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/ext/Win32/t/GetLongPathName.t b/ext/Win32/t/GetLongPathName.t
index 22a2f02..834d8d1 100644
--- 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);
 
-- 
2.7.4