diff options
author | elliott_c <ocielliottc@users.noreply.github.com> | 2004-08-11 12:47:34 +0000 |
---|---|---|
committer | elliott_c <ocielliottc@users.noreply.github.com> | 2004-08-11 12:47:34 +0000 |
commit | f1b109dab840cbccd5875f186890a056815e86fd (patch) | |
tree | 467f4b18373679f274ff5bf538f75ca15975d2da /modules/DirectoryManager.pm | |
parent | a622851adb21df46d3ea12adfe763b6a6462d84e (diff) | |
download | MPC-f1b109dab840cbccd5875f186890a056815e86fd.tar.gz |
ChangeLogTag: Wed Aug 11 07:45:11 2004 Chad Elliott <elliott_c@ociweb.com>
Diffstat (limited to 'modules/DirectoryManager.pm')
-rw-r--r-- | modules/DirectoryManager.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/modules/DirectoryManager.pm b/modules/DirectoryManager.pm index 933158ee..8e815738 100644 --- a/modules/DirectoryManager.pm +++ b/modules/DirectoryManager.pm @@ -11,6 +11,12 @@ package DirectoryManager; # ************************************************************ use strict; +use File::Basename; + +if ($^O eq 'VMS') { + require VMS::Filespec; + import VMS::Filespec qw(unixify); +} # ************************************************************ # Data Section @@ -77,6 +83,14 @@ sub getstartdir { return $start; } +sub mpc_dirname { + my($self) = shift; + my($dir) = shift; + return ($^O ne 'VMS' ? File::Basename::dirname($dir) : + unixify(File::Basename::dirname($dir))); +} + + # ************************************************************ # Virtual Methods To Be Overridden # ************************************************************ |