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
[perl5.git] / 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);