[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 (file)
--- 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 (file)
--- 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'  ],
 
 ) ;