From 50a3f73a825b2e1aaab386fbf5fb2e9384dbf0e1 Mon Sep 17 00:00:00 2001
From: Elijah Perrault <elijah@starcoder.info>
Date: Mon, 14 Feb 2011 14:48:26 -0700
Subject: [PATCH] Store channels with case insensitivity.

---
 lib/Parser/IRC.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/Parser/IRC.pm b/lib/Parser/IRC.pm
index 3049b8c..73adffa 100644
--- a/lib/Parser/IRC.pm
+++ b/lib/Parser/IRC.pm
@@ -301,12 +301,12 @@ sub cjoin
 	
 	# Check if this is coming from ourselves.
 	if ($src{nick} eq $botnick{$svr}{nick}) {
-		$botchans{$svr}{substr $ex[2], 1} = 1;
+		$botchans{$svr}{lc(substr $ex[2], 1)} = 1;
 		API::Std::event_run("on_ucjoin", ($svr, substr($ex[2], 1)));
 	}
 	else {
 		# It isn't. Update chanusers and trigger on_rcjoin.
-        $chanusers{$svr}{substr $ex[2], 1}{$src{nick}} = 1;
+        $chanusers{$svr}{lc(substr $ex[2], 1)}{$src{nick}} = 1;
 		API::Std::event_run("on_rcjoin", ($svr, \%src, substr($ex[2], 1)));
 	}