This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix ext/Win32/t/Unicode.t test failure under Cygwin
authorJerry D. Hedden <jdhedden@cpan.org>
Thu, 6 Sep 2007 13:07:51 +0000 (09:07 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 7 Sep 2007 08:36:02 +0000 (08:36 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510709061007x57e86b50led110861846cdc02@mail.gmail.com>

p4raw-id: //depot/perl@31808

ext/Win32/t/Unicode.t

index f88ace3..382b13a 100644 (file)
@@ -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);