Re: [PATCH-revised] ext/Win32/t/Unicode.t failures on FAT32 under Cygwin

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510706271746r62f921f4s3770df0b92cdf201@mail.gmail.com>

p4raw-id: //depot/perl@31487

diff --git a/ext/Win32/t/Unicode.t b/ext/Win32/t/Unicode.t
index b01057b..0de9463 100644 (file)
--- a/ext/Win32/t/Unicode.t
+++ b/ext/Win32/t/Unicode.t
@@ -8,7 +8,7 @@ BEGIN {
        print "1..0 # Skip: Needs ActivePerl 820 or Perl 5.8.9 or later\n";
        exit 0;
     }
-    unless ((Win32::FsType())[1] & 4) {
+    if ((((Win32::FsType())[1] & 4) == 0) || (Win32::FsType() =~ /^FAT/)) {
        print "1..0 # Skip: Filesystem doesn't support Unicode\n";
        exit 0;
     }