diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2006-01-25 15:05:21 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2006-01-25 15:05:21 +0000 |
commit | 325b75d00a804b4906b94b65069fa6d34148b741 (patch) | |
tree | b9fe567aceed9a0e0ea6951f2df43787e5a26f95 /modules/WinProjectBase.pm | |
parent | 4e3f8b85909ff7af8f8596790974fa98ca529c9d (diff) | |
download | MPC-325b75d00a804b4906b94b65069fa6d34148b741.tar.gz |
ChangeLogTag: Wed Jan 25 09:02:34 2006 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/WinProjectBase.pm')
-rw-r--r-- | modules/WinProjectBase.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/modules/WinProjectBase.pm b/modules/WinProjectBase.pm index 96eb032e..43b3ead0 100644 --- a/modules/WinProjectBase.pm +++ b/modules/WinProjectBase.pm @@ -28,6 +28,17 @@ sub case_insensitive { } +sub translate_directory { + my($self) = shift; + my($dir) = shift; + + $dir = $self->DirectoryManager::translate_directory($dir); + $dir =~ s/^([A-Z]):/$1/i; + $dir =~ s/\$\(([^\)]+)\)/$1/g; + return $dir; +} + + sub validated_directory { my($self) = shift; my($dir) = shift; |