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 (file)
--- 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;