Change 31436 by [EMAIL PROTECTED] on 2007/06/21 08:18:54
Subject: [perl #40103] File::Spec->case_tolerant() should return true
on Cygwin
From: "Reini Urban via RT" <[EMAIL PROTECTED]>
Date: Wed, 20 Jun 2007 11:50:21 -0700
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/lib/File/Spec/Cygwin.pm#14 edit
... //depot/perl/lib/File/Spec/t/Spec.t#25 edit
Differences ...
==== //depot/perl/lib/File/Spec/Cygwin.pm#14 (text) ====
Index: perl/lib/File/Spec/Cygwin.pm
--- perl/lib/File/Spec/Cygwin.pm#13~29356~ 2006-11-22 19:09:08.000000000
-0800
+++ perl/lib/File/Spec/Cygwin.pm 2007-06-21 01:18:54.000000000 -0700
@@ -4,7 +4,7 @@
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 @@
$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
==== //depot/perl/lib/File/Spec/t/Spec.t#25 (text) ====
Index: perl/lib/File/Spec/t/Spec.t
--- perl/lib/File/Spec/t/Spec.t#24~31431~ 2007-06-20 20:15:59.000000000
-0700
+++ perl/lib/File/Spec/t/Spec.t 2007-06-21 01:18:54.000000000 -0700
@@ -619,7 +619,7 @@
#[ "Epoc->canonpath('/a/.')", '/a' ],
#[ "Epoc->canonpath('/.')", '/' ],
-[ "Cygwin->case_tolerant()", '0' ],
+[ "Cygwin->case_tolerant()", '1' ],
[ "Cygwin->catdir('/','d2/d3')", '/d2/d3' ],
) ;
End of Patch.
