diff options
Diffstat (limited to 'ACE/bin/mwc.pl')
-rwxr-xr-x | ACE/bin/mwc.pl | 6 |
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)); |