From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Fri, 11 Aug 2000 12:11:34 +0000 (+0000)
Subject: Fixed problem with loadMyModules() caused by delForked()
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=705bbc21b0ef94f1ddc99b478c1635103bf66bbd;p=infobot.git

Fixed problem with loadMyModules() caused by delForked()


git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@31 c11ca15a-4712-0410-83d8-924469b57eb5
---

diff --git a/blootbot/src/modules.pl b/blootbot/src/modules.pl
index b54ce89..33fe0a4 100644
--- a/blootbot/src/modules.pl
+++ b/blootbot/src/modules.pl
@@ -252,6 +252,8 @@ sub loadMyModule {
     if (!defined $tmp) {
 	&WARN("loadMyModule: module is NULL.");
 	return 0; 
+    } else {
+	&DEBUG("lMM: arg = '$tmp'.");
     }
 
     my ($modulebase, $modulefile);
@@ -259,6 +261,10 @@ sub loadMyModule {
 	($modulename, $modulebase) = ($tmp, $myModules{$tmp});
     } else {
 	$modulebase = $tmp;
+	if ($tmp = grep /^$modulebase$/, keys %myModules) {
+	    &DEBUG("lMM: lame hack, file => name => $tmp.");
+	    $modulename = $tmp;
+	}
     }
     my $modulefile = "$bot_src_dir/Modules/$modulebase";
 
@@ -281,7 +287,7 @@ sub loadMyModule {
 	if ($bot_pid == $$) {	# parent.
 	    &shutdown() if (defined $shm and defined $dbh);
 	} else {			# child.
-	    &delForked($modulebase);
+	    &delForked($modulename);
 	}
 
 	exit 1;