added NULL irc channel check

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

diff --git a/src/IRC/Schedulers.pl b/src/IRC/Schedulers.pl
index 81cf57e29893bb6a8686666f4b366721c51ee8c1..ec13ea0ea8dc78c4f2264bd965ad4c0b3e2dac0c 100644 (file)
--- a/src/IRC/Schedulers.pl
+++ b/src/IRC/Schedulers.pl
@@ -415,6 +415,16 @@ sub ircCheck {
        &joinNextChan();
     }
 
+    if (grep /^\s*$/, keys %channels) {
+       &WARN("we have a NULL chan in hash channels? removing!");
+       delete $channels{''};
+       &status("channels now:");
+       foreach (keys %channels) {
+           &status("  $_");
+       }
+    }
+
+
     &ScheduleThis(240, "ircCheck") if (@_);
 }