This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test fixes to go along with longpath.inc patch
authorJerry D. Hedden <jdhedden@cpan.org>
Thu, 6 Sep 2007 14:50:15 +0000 (10:50 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 7 Sep 2007 08:41:16 +0000 (08:41 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510709061150t4838c7d4i4c5b3f1f7dc0edd1@mail.gmail.com>

p4raw-id: //depot/perl@31810

ext/Win32/t/GetLongPathName.t

index 22a2f02..834d8d1 100644 (file)
@@ -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);