Change 31715 by [EMAIL PROTECTED] on 2007/08/15 09:54:14
Subject: Re: Test failure @recent bleadperls (31712,31711)
From: Reini Urban <[EMAIL PROTECTED]>
Date: Wed, 15 Aug 2007 09:44:29 +0200
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/File/Spec/Cygwin.pm#17 edit
Differences ...
==== //depot/perl/lib/File/Spec/Cygwin.pm#17 (text) ====
Index: perl/lib/File/Spec/Cygwin.pm
--- perl/lib/File/Spec/Cygwin.pm#16~31709~ 2007-08-13 23:57:08.000000000
-0700
+++ perl/lib/File/Spec/Cygwin.pm 2007-08-15 02:54:14.000000000 -0700
@@ -109,7 +109,8 @@
=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;
End of Patch.
