From: dms Date: Sat, 16 Dec 2000 12:32:05 +0000 (+0000) Subject: hrm X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=98f2bb47f4163b14c873cea32d5a2eb087c846d7;p=infobot.git hrm git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@206 c11ca15a-4712-0410-83d8-924469b57eb5 --- diff --git a/src/core.pl b/src/core.pl index 9e4add7..d2027aa 100644 --- a/src/core.pl +++ b/src/core.pl @@ -85,7 +85,7 @@ sub doWarn { &WARN("PERL: $_"); } - $SIG{__WARN__} = 'doWarn'; + $SIG{__WARN__} = 'doWarn'; # ??? } # Usage: &IsParam($param); @@ -228,6 +228,8 @@ sub startup { sub shutdown { # reverse order of &setup(). + &DEBUG("shutdown called."); + &closeDB(); &closeSHM($shm); # aswell. TODO: use this in &doExit? &closeLog();