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 /modules/DirectoryManager.pm | |
parent | e49e83fef06ff080b1beffc8725495b498bc13eb (diff) | |
download | MPC-d88ede153c1d67ba2788749d334181f5fda5e0c8.tar.gz |
ChangeLogTag: Thu Jan 5 09:45:54 2006 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/DirectoryManager.pm')
-rw-r--r-- | modules/DirectoryManager.pm | 7 |
1 files changed, 7 insertions, 0 deletions
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; |