summaryrefslogtreecommitdiff
path: root/ACE/bin/mwc.pl
diff options
context:
space:
mode:
Diffstat (limited to 'ACE/bin/mwc.pl')
-rwxr-xr-xACE/bin/mwc.pl6
1 files changed, 3 insertions, 3 deletions
diff --git a/ACE/bin/mwc.pl b/ACE/bin/mwc.pl
index 7234756852f..8e8a838eb29 100755
--- a/ACE/bin/mwc.pl
+++ b/ACE/bin/mwc.pl
@@ -20,8 +20,8 @@ use FindBin;
use File::Spec;
use File::Basename;
-my($basePath) = $FindBin::RealBin;
-my($baseName) = $FindBin::RealScript;
+my($basePath) = (defined $FindBin::RealBin ? $FindBin::RealBin :
+ File::Spec->rel2abs(dirname($0)));
if ($^O eq 'VMS') {
$basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq '');
$basePath = VMS::Filespec::unixify($basePath);
@@ -64,5 +64,5 @@ sub getBasePath {
# Main Section
# ************************************************************
-my($driver) = new Driver($basePath, basename($0));
+my($driver) = new Driver($basePath, Driver::workspaces());
exit($driver->run(@ARGV));