diff options
| author | Reini Urban <rurban@x-ray.at> | 2007-06-20 04:50:21 -0700 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-06-21 08:18:54 +0000 |
| commit | 8915552c55880ade8ca834007e345e2527cd1a4c (patch) | |
| tree | cd49a0c71b7328e916b6c85e56346715a405ee6f /lib/File | |
| parent | d6c666a6c1fd197dca053a9993b287403bbb30e8 (diff) | |
| download | perl-8915552c55880ade8ca834007e345e2527cd1a4c.tar.gz | |
[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
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Spec/Cygwin.pm | 11 | ||||
| -rw-r--r-- | lib/File/Spec/t/Spec.t | 2 |
2 files changed, 11 insertions, 2 deletions
diff --git a/lib/File/Spec/Cygwin.pm b/lib/File/Spec/Cygwin.pm index 7124706059..9423eeca4d 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 96d5efa3c1..5ca4caf7e1 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' ], ) ; |