From e026b9ac42b30f0e4946314a921c5302a73b8771 Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Wed, 1 Jul 2015 15:20:28 -0700
Subject: [PATCH] NickList is_present() now returns canonical nick (proper
 typographical case)

---
 PBot/NickList.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/PBot/NickList.pm b/PBot/NickList.pm
index 76d534d8..406b3fb1 100644
--- a/PBot/NickList.pm
+++ b/PBot/NickList.pm
@@ -85,9 +85,10 @@ sub is_present {
   my ($self, $channel, $nick) = @_;
 
   $channel = lc $channel;
+  $nick = lc $nick;
 
-  if (exists $self->{nicklist}->{$channel} and exists $self->{nicklist}->{$channel}->{lc $nick}) {
-    return 1;
+  if (exists $self->{nicklist}->{$channel} and exists $self->{nicklist}->{$channel}->{$nick}) {
+    return $self->{nicklist}->{$channel}->{$nick}->{nick};
   } else {
     return 0;
   }