Update makerel to make a release from a git checkout.

[p5sagit/p5-mst-13.2.git] / ext / Win32 / t / GetLongPathName.t

diff --git a/ext/Win32/t/GetLongPathName.t b/ext/Win32/t/GetLongPathName.t
index 834d8d1..9269346 100644 (file)
--- a/ext/Win32/t/GetLongPathName.t
+++ b/ext/Win32/t/GetLongPathName.t
@@ -29,17 +29,17 @@ push @paths, qw(
     //.\/./\
 );
 
-my $drive = $ENV{SystemDrive};
+my $drive = $ENV{SYSTEMDRIVE};
 if ($drive) {
     for (@paths) {
        s/^c:/$drive/;
     }
-    push @paths, $ENV{SystemRoot} if $ENV{SystemRoot};
+    push @paths, $ENV{SYSTEMROOT} if $ENV{SYSTEMROOT};
 }
 my %expect;
 @expect{@paths} = map { my $x = $_;
                         $x =~ s,(.[/\\])[/\\]+,$1,g;
-                        $x =~ s,^c,C,;
+                        $x =~ s,^(\w):,\U$1:,;
                         $x } @paths;
 
 plan tests => scalar(@paths);