1 files changed, 2 insertions, 1 deletions
diff --git a/mpc.pl b/mpc.pl
index 8d12b8e1..d04c4b25 100755
--- a/mpc.pl
+++ b/mpc.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));