Change 31796 by [EMAIL PROTECTED] on 2007/09/05 15:15:58
Subject: [PATCH] Fix ext/Win32/t/Unicode.t test bug
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Date: Wed, 5 Sep 2007 10:59:49 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/Win32/t/Unicode.t#6 edit
Differences ...
==== //depot/perl/ext/Win32/t/Unicode.t#6 (text) ====
Index: perl/ext/Win32/t/Unicode.t
--- perl/ext/Win32/t/Unicode.t#5~31487~ 2007-06-27 23:13:31.000000000 -0700
+++ perl/ext/Win32/t/Unicode.t 2007-09-05 08:15:58.000000000 -0700
@@ -60,8 +60,8 @@
# 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 @@
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") {
End of Patch.
