From dfbefee90426845693ef80ec0c3db384a1157d8b Mon Sep 17 00:00:00 2001
From: Pragmatic Software <pragma78@gmail.com>
Date: Wed, 10 Jun 2015 02:26:14 -0700
Subject: [PATCH] random_nick now returns nick with preserved typographical
 case

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

diff --git a/PBot/NickList.pm b/PBot/NickList.pm
index 588c81c6..76d534d8 100644
--- a/PBot/NickList.pm
+++ b/PBot/NickList.pm
@@ -100,7 +100,8 @@ sub random_nick {
 
   if (exists $self->{nicklist}->{$channel}) {
     my @nicks = keys $self->{nicklist}->{$channel};
-    return $nicks[rand @nicks];
+    my $nick = $nicks[rand @nicks];
+    return $self->{nicklist}->{$channel}->{$nick}->{nick};
   } else {
     return undef;
   }