From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Thu, 6 Sep 2007 13:07:51 +0000 (-0400)
Subject: Fix ext/Win32/t/Unicode.t test failure under Cygwin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9cdd923eac181abb5e6a671e682a3dad6e503b18;p=p5sagit%2Fp5-mst-13.2.git

Fix ext/Win32/t/Unicode.t test failure under Cygwin
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510709061007x57e86b50led110861846cdc02@mail.gmail.com>

p4raw-id: //depot/perl@31808
---

diff --git a/ext/Win32/t/Unicode.t b/ext/Win32/t/Unicode.t
index f88ace3..382b13a 100644
--- a/ext/Win32/t/Unicode.t
+++ b/ext/Win32/t/Unicode.t
@@ -75,8 +75,7 @@ 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") {
-    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);