From 72cc5d94b705abb2f1b4f4b997ddc43a299b186c Mon Sep 17 00:00:00 2001
From: Johnny Willemsen <jwillemsen@remedy.nl>
Date: Tue, 9 Sep 2008 18:47:30 +0000
Subject: Tue Sep  9 18:46:15 UTC 2008  Johnny Willemsen 
 <jwillemsen@remedy.nl>

---
 mwc.pl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'mwc.pl')

diff --git a/mwc.pl b/mwc.pl
index 8d12b8e1..d04c4b25 100755
--- a/mwc.pl
+++ b/mwc.pl
@@ -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));
-- 
cgit v1.2.1