Fixed problem with loadMyModules() caused by delForked()

[infobot.git] / src / modules.pl

diff --git a/src/modules.pl b/src/modules.pl
index b54ce89808ee0b7dff8c896af6d7046dda0911f1..33fe0a4f2b06d908008f8fced2bea8e1cc9d2851 100644 (file)
--- a/src/modules.pl
+++ b/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;