This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Check rename() under Cygwin
authorJerry D. Hedden <jdhedden@cpan.org>
Tue, 25 Sep 2007 11:55:53 +0000 (07:55 -0400)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Wed, 26 Sep 2007 14:55:15 +0000 (14:55 +0000)
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510709250855o2c9115cdi6ce830a9ccaec696@mail.gmail.com>

p4raw-id: //depot/perl@31980

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