debug msg for mixed-case chan

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

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index 1e61fe071453e42771c1eb46069dfb819d4557ac..2f3b3b41da5d19e3894c99c6ad15b3f9efb65555 100644 (file)
--- a/src/IRC/Irc.pl
+++ b/src/IRC/Irc.pl
@@ -514,6 +514,10 @@ sub IsNickInChan {
     if (grep /^\Q$nick\E$/i, keys %{$channels{$chan}{''}}) {
        return 1;
     } else {
+       foreach (keys %channels) {
+           next unless (/[A-Z]/);
+           &DEBUG("hash channels contains mixed cased chan!!!");
+       }
        return 0;
     }
 }