use modulebase instead of modulefile for delForked()

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

diff --git a/src/modules.pl b/src/modules.pl
index 8a5f371876469d78181ea85fc3cb7c59b42de079..a56f3f3764fd9b2c00a78e748ba813a3a6e5e583 100644 (file)
--- a/src/modules.pl
+++ b/src/modules.pl
@@ -296,7 +296,8 @@ sub loadMyModule {
        if ($$ == $bot_pid) {   # parent.
            &shutdown() if (defined $shm and defined $dbh);
        } else {                        # child.
-           &delForked($modulename);
+           &DEBUG("b4 delfork 1");
+           &delForked($modulebase);
        }
 
        exit 1;
@@ -308,7 +309,8 @@ sub loadMyModule {
        if ($bot_pid == $$) {   # parent.
            &shutdown() if (defined $shm and defined $dbh);
        } else {                        # child.
-           &delForked($modulename);
+           &DEBUG("b4 delfork 2");
+           &delForked($modulebase);
            exit 1;
        }