diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2006-01-05 15:47:56 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2006-01-05 15:47:56 +0000 |
commit | d88ede153c1d67ba2788749d334181f5fda5e0c8 (patch) | |
tree | a12fd1df23f2d147abaa854614311a135bd12335 | |
parent | e49e83fef06ff080b1beffc8725495b498bc13eb (diff) | |
download | MPC-d88ede153c1d67ba2788749d334181f5fda5e0c8.tar.gz |
ChangeLogTag: Thu Jan 5 09:45:54 2006 Chad Elliott <elliott_c@ociweb.com>
-rw-r--r-- | ChangeLog | 10 | ||||
-rw-r--r-- | modules/Creator.pm | 3 | ||||
-rw-r--r-- | modules/DirectoryManager.pm | 7 | ||||
-rw-r--r-- | modules/ProjectCreator.pm | 6 |
4 files changed, 18 insertions, 8 deletions
@@ -1,3 +1,13 @@ +Thu Jan 5 09:45:54 2006 Chad Elliott <elliott_c@ociweb.com> + + * modules/Creator.pm: + * modules/DirectoryManager.pm: + * modules/ProjectCreator.pm: + + Made MPC more tolerant of file systems that are case insensitive. + This will help with the relative path replacement on Windows and + others that have this problematic type of file system. + Wed Jan 4 08:09:20 2006 Chad Elliott <elliott_c@ociweb.com> * modules/ProjectCreator.pm: diff --git a/modules/Creator.pm b/modules/Creator.pm index 92775a89..26ae4f07 100644 --- a/modules/Creator.pm +++ b/modules/Creator.pm @@ -12,7 +12,6 @@ package Creator; use strict; use FileHandle; -use File::Spec; use File::Basename; use Parser; @@ -94,7 +93,7 @@ sub new { $self->{'use_env'} = $use_env; $self->{'expand_vars'} = $expandvars; $self->{'convert_slashes'} = $self->convert_slashes(); - $self->{'case_tolerant'} = File::Spec->case_tolerant(); + $self->{'case_tolerant'} = $self->case_insensitive(); return $self; } diff --git a/modules/DirectoryManager.pm b/modules/DirectoryManager.pm index 6c1a7903..5e378e92 100644 --- a/modules/DirectoryManager.pm +++ b/modules/DirectoryManager.pm @@ -11,12 +11,14 @@ package DirectoryManager; # ************************************************************ use strict; +use File::Spec; use File::Basename; # ************************************************************ # Data Section # ************************************************************ +my($case_insensitive) = File::Spec->case_tolerant(); my($cwd) = Cwd::getcwd(); if ($^O eq 'cygwin' && $cwd !~ /[A-Za-z]:/) { my($cyg) = `cygpath -w $cwd`; @@ -24,6 +26,7 @@ if ($^O eq 'cygwin' && $cwd !~ /[A-Za-z]:/) { $cyg =~ s/\\/\//g; chop($cwd = $cyg); } + $case_insensitive = 1; } elsif ($^O eq 'VMS') { $cwd = VMS::Filespec::unixify($cwd); @@ -150,5 +153,9 @@ sub convert_slashes { return 0; } +sub case_insensitive { + #my($self) = shift; + return $case_insensitive; +} 1; diff --git a/modules/ProjectCreator.pm b/modules/ProjectCreator.pm index cd7880ea..d5ef33a8 100644 --- a/modules/ProjectCreator.pm +++ b/modules/ProjectCreator.pm @@ -4488,12 +4488,6 @@ sub remove_wanted_extension { # Virtual Methods To Be Overridden # ************************************************************ -sub case_insensitive { - #my($self) = shift; - return 0; -} - - sub escape_spaces { #my($self) = shift; return 0; |