diff options
author | Johnny Willemsen <jwillemsen@remedy.nl> | 2008-09-09 18:47:30 +0000 |
---|---|---|
committer | Johnny Willemsen <jwillemsen@remedy.nl> | 2008-09-09 18:47:30 +0000 |
commit | 72cc5d94b705abb2f1b4f4b997ddc43a299b186c (patch) | |
tree | d7296208a58842b15463d09abf92b665b77e4937 /mwc.pl | |
parent | 327d38ed243342524ee269d527d9ab2be086ef06 (diff) | |
download | MPC-72cc5d94b705abb2f1b4f4b997ddc43a299b186c.tar.gz |
Tue Sep 9 18:46:15 UTC 2008 Johnny Willemsen <jwillemsen@remedy.nl>
Diffstat (limited to 'mwc.pl')
-rwxr-xr-x | mwc.pl | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -21,6 +21,7 @@ use File::Spec; use File::Basename; my $basePath = $FindBin::RealBin; +my $baseName = $FindBin::RealScript; if ($^O eq 'VMS') { $basePath = File::Spec->rel2abs(dirname($0)) if ($basePath eq ''); $basePath = VMS::Filespec::unixify($basePath); @@ -41,5 +42,5 @@ sub getBasePath { # Main Section # ************************************************************ -my $driver = new Driver($basePath, basename($0)); +my $driver = new Driver($basePath, $baseName); exit($driver->run(@ARGV)); |