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
[perl5.git] / 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);