This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
36ec1df
)
Re: [PATCH-revised] ext/Win32/t/Unicode.t failures on FAT32 under Cygwin
author
Jerry D. Hedden
<jdhedden@cpan.org>
Wed, 27 Jun 2007 20:46:39 +0000
(16:46 -0400)
committer
Rafael Garcia-Suarez
<rgarciasuarez@gmail.com>
Thu, 28 Jun 2007 06:13:31 +0000
(06:13 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510706271746r62f921f4s3770df0b92cdf201@mail.gmail.com>
p4raw-id: //depot/perl@31487
ext/Win32/t/Unicode.t
patch
|
blob
|
blame
|
history
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;
}