Exit process if on_public hook is activated under fork

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

diff --git a/src/IRC/IrcHooks.pl b/src/IRC/IrcHooks.pl
index b7126b4189ff9672c13f83f9bc66e2199278f6fe..af16d3e7f15ef159906c6754594a1aad24ce50f4 100644 (file)
--- a/src/IRC/IrcHooks.pl
+++ b/src/IRC/IrcHooks.pl
@@ -579,6 +579,11 @@ sub on_public {
     $nuh     = $nick."!".$uh;
     ($user,$host) = split(/\@/, $uh);
 
+    if ($$ != $bot_pid) {
+       &ERROR("SHOULD NEVER HAPPEN.");
+       exit(0);
+    }
+
     ### DEBUGGING.
     if ($statcount < 200) {
        foreach $chan (grep /[A-Z]/, keys %channels) {