Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1247/lib/Module/Build
Modified Files:
Base.pm
Log Message:
Be more resilient on case-tolerant filesystems
Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.459
retrieving revision 1.460
diff -u -d -r1.459 -r1.460
--- Base.pm 10 Jul 2005 12:25:34 -0000 1.459
+++ Base.pm 16 Jul 2005 03:10:53 -0000 1.460
@@ -1011,6 +1011,9 @@
my %q = map {$_, $self->$_()} qw(config_dir base_dir);
$q{base_dir} = Win32::GetShortPathName($q{base_dir}) if $^O eq 'MSWin32';
+ my $case_tolerant = 0+(File::Spec->can('case_tolerant')
+ && File::Spec->case_tolerant);
+ $q{base_dir} = uc $q{base_dir} if $case_tolerant;
my @myINC = $self->_added_to_INC;
for (@myINC, values %q) {
@@ -1031,6 +1034,7 @@
BEGIN {
\$^W = 1; # Use warnings
my \$curdir = File::Spec->canonpath( Cwd::cwd() );
+ \$curdir = uc \$curdir if $case_tolerant;
my \$is_same_dir = \$^O eq 'MSWin32' ? (Win32::GetShortPathName(\$curdir) eq '$q{base_dir}')
: (\$curdir eq '$q{base_dir}');
unless (\$is_same_dir) {
|
