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

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index d5ac5dcfaf0470882bc552ca33ab1275957d5886..a1af5352a8f35f0426ba5b6eb82d6197799e3d7f 100644 (file)
--- 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(