ChangeLogTag: Wed Dec 21 06:28:04 2005 Chad Elliott <elliott_c@ociweb.com>

1 files changed, 5 insertions, 1 deletions

diff --git a/mpc.pl b/mpc.pl
index c7f7c30a..855690b1 100755
--- a/mpc.pl
+++ b/mpc.pl
@@ -13,12 +13,16 @@ eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
 # ******************************************************************
 
 use strict;
-use Cwd;
 use Config;
 use FindBin;
+use File::Spec;
 use File::Basename;
 
 my($basePath) = $FindBin::Bin;
+if ($^O eq 'VMS') {
+  $basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq '');
+  $basePath = VMS::Filespec::unixify($basePath);
+}
 unshift(@INC, $basePath . '/modules');
 
 require MPC;