From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Tue, 25 Sep 2007 11:55:53 +0000 (-0400)
Subject: Check rename() under Cygwin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1a36314cbeab52a90bc0d56b6f2c61f22e03df5d;p=p5sagit%2Fp5-mst-13.2.git

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