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 9e4add76a6cafb2cb6b2013db5421a70553e3aeb..d2027aaf384a902b6ad0cd896ac03dfb5cd09ca6 100644 (file)
--- 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();