Check rename() under Cygwin

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

p4raw-id: //depot/perl@31980

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";