Change 31808 by [EMAIL PROTECTED] on 2007/09/07 08:36:02
Subject: [PATCH] Fix ext/Win32/t/Unicode.t test failure under Cygwin
From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
Date: Thu, 6 Sep 2007 13:07:51 -0400
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/ext/Win32/t/Unicode.t#7 edit
Differences ...
==== //depot/perl/ext/Win32/t/Unicode.t#7 (text) ====
Index: perl/ext/Win32/t/Unicode.t
--- perl/ext/Win32/t/Unicode.t#6~31796~ 2007-09-05 08:15:58.000000000 -0700
+++ perl/ext/Win32/t/Unicode.t 2007-09-07 01:36:02.000000000 -0700
@@ -75,8 +75,7 @@
# 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") {
- chomp(my $cygpath = `cygpath -w "$cwd"`);
- $subdir =~ s,\Q$cwd\E,$cygpath,;
+ $subdir = Cygwin::posix_to_win_path($subdir, 1);
}
$subdir =~ s,/,\\,g;
ok(Win32::GetLongPathName($subdir), $long);
End of Patch.
