X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fio%2Ffs.t;h=b897647106764d0a5f05d3483a638f2f9659bb41;hb=ac27d13b824657b726428f3a6a1d5b3a01df569e;hp=5b2de64846a12891f6b8ec9b01d6ca6a495ece80;hpb=295d5f02f7120b75c639212780c96fcd67ffb3d6;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/io/fs.t b/t/io/fs.t
index 5b2de64..b897647 100755
--- 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";