clearIRCVars update

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

diff --git a/blootbot/src/IRC/Irc.pl b/blootbot/src/IRC/Irc.pl
index a11f0725dedf67e876818bc56cad0567ee6bf156..e3cae5683437a27076cf952329c8656bd7779970 100644 (file)
--- a/blootbot/src/IRC/Irc.pl
+++ b/blootbot/src/IRC/Irc.pl
@@ -584,7 +584,8 @@ sub clearChanVars {
 
 sub clearIRCVars {
     &DEBUG("clearIRCVars() called!");
-    %channels = ();
+    undef %channels;
+    undef %floodjoin;
     @joinchan = split /[\t\s]+/, $param{'join_channels'};
 }