From: Reini Urban <rurban@x-ray.at>
Date: Wed, 20 Jun 2007 11:50:21 +0000 (-0700)
Subject: [perl #40103] File::Spec->case_tolerant() should return true on Cygwin
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8915552c55880ade8ca834007e345e2527cd1a4c;p=p5sagit%2Fp5-mst-13.2.git

[perl #40103] File::Spec->case_tolerant() should return true on Cygwin
From: "Reini Urban via RT" <perlbug-followup@perl.org>
Message-ID: <rt-3.6.HEAD-1276-1182365420-145.40103-15-0@perl.org>

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

diff --git a/lib/File/Spec/Cygwin.pm b/lib/File/Spec/Cygwin.pm
index 7124706..9423eec 100644
--- a/lib/File/Spec/Cygwin.pm
+++ b/lib/File/Spec/Cygwin.pm
@@ -4,7 +4,7 @@ use strict;
 use vars qw(@ISA $VERSION);
 require File::Spec::Unix;
 
-$VERSION = '1.1';
+$VERSION = '1.1_01';
 
 @ISA = qw(File::Spec::Unix);
 
@@ -97,6 +97,15 @@ sub tmpdir {
     $tmpdir = $_[0]->_tmpdir( $ENV{TMPDIR}, "/tmp", 'C:/temp' );
 }
 
+=item case_tolerant
+
+Override Unix. Cygwin is always case-tolerant, indicating that it is not
+significant when comparing file specifications.
+
+=cut
+
+sub case_tolerant () { 1 }
+
 =back
 
 =head1 COPYRIGHT
diff --git a/lib/File/Spec/t/Spec.t b/lib/File/Spec/t/Spec.t
index 96d5efa..5ca4caf 100644
--- a/lib/File/Spec/t/Spec.t
+++ b/lib/File/Spec/t/Spec.t
@@ -619,7 +619,7 @@ if ($^O eq 'MacOS') {
 #[ "Epoc->canonpath('/a/.')",                                  '/a'        ],
 #[ "Epoc->canonpath('/.')",                                    '/'         ],
 
-[ "Cygwin->case_tolerant()",         '0'  ],
+[ "Cygwin->case_tolerant()",         '1'  ],
 [ "Cygwin->catdir('/','d2/d3')",     '/d2/d3'  ],
 
 ) ;