[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.459,1.460

[Ken W. <kwi...@us...>]

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) {