From e5a235cad6a624d1be41543636a80fc526f906a5 Mon Sep 17 00:00:00 2001
From: elliott_c <ocielliottc@users.noreply.github.com>
Date: Mon, 21 Nov 2005 15:26:51 +0000
Subject: ChangeLogTag: Mon Nov 21 09:26:35 2005  Chad Elliott 
 <elliott_c@ociweb.com>

---
 mwc.pl | 53 ++---------------------------------------------------
 1 file changed, 2 insertions(+), 51 deletions(-)

(limited to 'mwc.pl')

diff --git a/mwc.pl b/mwc.pl
index a4905d2d..f622b670 100755
--- a/mwc.pl
+++ b/mwc.pl
@@ -15,9 +15,10 @@ eval '(exit $?0)' && eval 'exec perl -w -S $0 ${1+"$@"}'
 use strict;
 use Cwd;
 use Config;
+use FindBin;
 use File::Basename;
 
-my($basePath) = getExecutePath($0);
+my($basePath) = $FindBin::Bin;
 unshift(@INC, $basePath . '/modules');
 
 require MWC;
@@ -30,56 +31,6 @@ sub getBasePath {
   return $basePath;
 }
 
-
-sub which {
-  my($prog) = shift;
-  my($exec) = $prog;
-
-  if (defined $ENV{'PATH'}) {
-    my($part)   = '';
-    my($envSep) = $Config{'path_sep'};
-    foreach $part (split(/$envSep/, $ENV{'PATH'})) {
-      $part .= "/$prog";
-      if ( -x $part ) {
-        $exec = $part;
-        last;
-      }
-    }
-  }
-
-  return $exec;
-}
-
-
-sub getExecutePath {
-  my($prog) = shift;
-  my($loc)  = '';
-
-  if ($prog ne basename($prog)) {
-    if ($prog =~ /^[\/\\]/ ||
-        $prog =~ /^[A-Za-z]:[\/\\]?/) {
-      $loc = dirname($prog);
-    }
-    else {
-      $loc = getcwd() . '/' . dirname($prog);
-    }
-  }
-  else {
-    $loc = dirname(which($prog));
-  }
-
-  if ($loc eq '.') {
-    $loc = getcwd();
-  }
-
-  if ($loc ne '') {
-    $loc .= '/';
-  }
-
-  return $loc;
-}
-
-
 # ************************************************************
 # Main Section
 # ************************************************************
-- 
cgit v1.2.1