On Cygwin 1.7 readdir() returns utf8-encoded filenames

but doesn't set the SvUTF8 bit on the result.

Author: jandubois

Changes

@@ -4,6 +4,9 @@ Revision history for the Perl extension Win32.
 	- add Win32::GetACP(), Win32::GetConsoleCP(),
 	  Win32::GetConsoleOutputCP(), Win32::GetOEMCP(), Win32::SetConsoleCP()
 	  and Win32::SetConsoleOutputCP(). [rt#78820] (Steve Hay)
+	- adjust t/Unicode.t for Cygwin 1.7, where readdir() returns
+	  the utf8 encoded filename without setting the SvUTF8 flag [rt#66751]
+	  [rt#74332]
 
 0.44	[2011-01-12]
 	- fix memory leak introduced in 0.43

t/Unicode.t

@@ -1,6 +1,8 @@
 use strict;
 use Test;
+use Config qw(%Config);
 use Cwd qw(cwd);
+use Encode qw();
 use Win32;
 
 BEGIN {
@@ -48,6 +50,9 @@ ok(-f Win32::GetANSIPathName($file));
 ok(opendir(my $dh, Win32::GetANSIPathName($dir)));
 while ($_ = readdir($dh)) {
     next if /^\./;
+    # On Cygwin 1.7 readdir() returns the utf8 representation of the
+    # filename but doesn't turn on the SvUTF8 bit
+    Encode::_utf8_on($_) if $^O eq "cygwin" && $Config{osvers} !~ /^1.5/;
     ok($file, Win32::GetLongPathName("$dir\\$_"));
 }
 closedir($dh);