Re: [rt.cpan.org #66751] make test fails on cygwin

The test fails because readdir() on Cygwin returns a scalar containing UTF8,
but it does not set the scalar's UTF-8 flag. It helps to set the flag
explicitely:

--- t/Unicode.t.bak     2011-08-26 16:37:11.483644100 +0200
+++ t/Unicode.t 2011-08-26 16:45:10.802566000 +0200
@@ -1,5 +1,6 @@
 use strict;
 use Test;
+use Encode;
 use Cwd qw(cwd);
 use Win32;

@@ -48,6 +49,7 @@
 ok(opendir(my $dh, Win32::GetANSIPathName($dir)));
 while ($_ = readdir($dh)) {
     next if /^\./;
+    Encode::_utf8_on($_) if $^O eq "cygwin";
     ok($file, Win32::GetLongPathName("$dir\\$_"));
 }
 closedir($dh);

--
Toni Andjelkovic
s IT Solutions
Risk and Balance Sheet Management Solutions

s IT Solutions AT Spardat GmbH
A-1010 Wien, Werdertorgasse 5
Phone: +43 (0) 50100 - 16558
Fax: +43 (0) 50100 9 - 16558
mailto:[email protected]
http://www.s-itsolutions.com