From: Reini Urban <rurban@x-ray.at>
Date: Wed, 15 Aug 2007 09:44:29 +0000 (+0200)
Subject: Re: Test failure @recent bleadperls (31712,31711)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b9a98565e2d390457228bfe912ab7ca457a1c60;p=p5sagit%2Fp5-mst-13.2.git

Re: Test failure @recent bleadperls (31712,31711)
Message-Id: <46C2AEDD.80400@x-ray.at>

p4raw-id: //depot/perl@31715
---

diff --git a/lib/File/Spec/Cygwin.pm b/lib/File/Spec/Cygwin.pm
index 62186c1..30d6e17 100644
--- a/lib/File/Spec/Cygwin.pm
+++ b/lib/File/Spec/Cygwin.pm
@@ -109,7 +109,8 @@ Default: 1
 =cut
 
 sub case_tolerant () {
-  my $drive = shift || "C:";
+  if ($^O ne 'cygwin') return 1;
+  my $drive = shift || "/cygdrive/c";
   my $mntopts = Cygwin::mount_flags($drive);
   if ($mntopts and ($mntopts =~ /,managed/)) {
     return 0;