Generate the warnings masks programatically.

[p5sagit/p5-mst-13.2.git] / t / io / fs.t

diff --git a/t/io/fs.t b/t/io/fs.t
index 5b2de64..b897647 100755 (executable)
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -413,7 +413,7 @@ SKIP: {
 # check if rename() can be used to just change case of filename
 SKIP: {
     skip "Works in Cygwin only if check_case is set to relaxed", 1
-      if $^O eq 'cygwin';
+      if ($ENV{'CYGWIN'} && ($ENV{'CYGWIN'} =~ /check_case:(?:adjust|strict)/));
 
     chdir './tmp';
     open(FH,'>x') || die "Can't create x";