From 6f97d803eb3e71d2c41ac382bda1fed76d748cbe Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Wed, 23 Feb 2005 06:25:14 +0000
Subject: [PATCH] speed unique users up a tad

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1173 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/UserExtra.pl | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index d5ac5dc..a1af535 100644
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -72,20 +72,19 @@ sub chaninfo {
 	}
 
 	### unique user count.
-	my @nicks;
+	# %seen = ();
+	# foreach $item (@list) {
+	#  $seen{$item}++;
+	# }
+	# @uniq = keys %seen;
+	my %nicks = ();
 	foreach $chan (keys %channels) {
-	    my $nick = '';
+	    my $nick;
 	    foreach $nick (keys %{ $channels{$chan}{''} }) {
-		next if (grep /^\Q$nick\E$/, @nicks);
-		$uucount++;
-		push(@nicks, $nick);
+		$nicks{$nick}++;
 	    }
 	}
-	#&::DEBUG(join ":", @nicks);
-
-	if (scalar @nicks != $uucount) {
-	    &DEBUG("nicks != uucount...");
-	}
+	$uucount = scalar(keys %nicks);
 
 	my $chans = scalar(keys %channels);
 	&performStrictReply(
-- 
2.39.2