Fix ext/Win32/t/Unicode.t test bug

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510709050759v27872bbam3f191283996960d3@mail.gmail.com>

p4raw-id: //depot/perl@31796

diff --git a/ext/Win32/t/Unicode.t b/ext/Win32/t/Unicode.t
index 0de9463..f88ace3 100644 (file)
--- a/ext/Win32/t/Unicode.t
+++ b/ext/Win32/t/Unicode.t
@@ -60,8 +60,8 @@ ok($long, Win32::GetLongPathName($home)."\\$dir");
 
 # We can Win32::SetCwd() into the Unicode directory
 ok(Win32::SetCwd($dir));
-ok(Win32::GetLongPathName(Win32::GetCwd()), $long);
 
+my $w32dir = Win32::GetCwd();
 # cwd() also returns a usable ANSI directory name
 my $subdir = cwd();
 
@@ -70,6 +70,8 @@ my $subdir = cwd();
 ok(chdir($home));
 ok(Win32::GetCwd(), $home);
 
+ok(Win32::GetLongPathName($w32dir), $long);
+
 # cwd() on Cygwin returns a mapped path that we need to translate
 # back to a Windows path. Invoking `cygpath` on $subdir doesn't work.
 if ($^O eq "cygwin") {