diff options
| author | elliott_c <ocielliottc@users.noreply.github.com> | 2007-03-15 12:28:15 +0000 |
|---|---|---|
| committer | elliott_c <ocielliottc@users.noreply.github.com> | 2007-03-15 12:28:15 +0000 |
| commit | 10ba8ae7dddc615b66fe2dc9ad0ea30f846d3667 (patch) | |
| tree | 861e2842a023c8fc41836673493e52f92dd2920b /modules/DirectoryManager.pm | |
| parent | fa71aa154b1a61463e202a1d50ac7e457d7bc0dd (diff) | |
| download | MPC-10ba8ae7dddc615b66fe2dc9ad0ea30f846d3667.tar.gz | |
ChangeLogTag: Thu Mar 15 13:25:09 UTC 2007 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/DirectoryManager.pm')
| -rw-r--r-- | modules/DirectoryManager.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/modules/DirectoryManager.pm b/modules/DirectoryManager.pm index 4732b8ab..eed2b9bb 100644 --- a/modules/DirectoryManager.pm +++ b/modules/DirectoryManager.pm @@ -158,6 +158,13 @@ sub onVMS { return $onVMS; } + +sub path_is_relative { + my($self) = shift; + my($path) = shift; + return (index($path, '/') != 0 && $path !~ /^[A-Z]:\//i); +} + # ************************************************************ # Virtual Methods To Be Overridden # ************************************************************ @@ -193,6 +200,7 @@ sub convert_slashes { return 0; } + sub case_insensitive { #my($self) = shift; return $case_insensitive; |