From 1ff061b981bbda7f388c68b1dce45e8fb2509f6e Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 1 Nov 2000 13:55:19 +0000
Subject: [PATCH] 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
---
 src/IRC/Irc.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/IRC/Irc.pl b/src/IRC/Irc.pl
index 1e61fe0..2f3b3b4 100644
--- 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;
     }
 }
-- 
2.39.2