From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Thu, 6 Sep 2007 14:50:15 +0000 (-0400)
Subject: Test fixes to go along with longpath.inc patch
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7fdd88d49ac01332a471908781346d7a74abaf7e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);