unique?

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@1171 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/UserExtra.pl b/src/UserExtra.pl
index 821636c6b96206afa7e5733cbabb8ffbdbe98248..11d6de24852b437f052cc44c49b8e086509de61d 100644 (file)
--- a/src/UserExtra.pl
+++ b/src/UserExtra.pl
@@ -75,12 +75,14 @@ sub chaninfo {
        ### unique user count.
        my @nicks;
        foreach $chan (keys %channels) {
-           foreach (keys %{ $channels{$chan}{''} }) {
-               next if (grep /^\Q$_\E$/, @nicks);
+           my $nick = '';
+           foreach $nick (keys %{ $channels{$chan}{''} }) {
+               next if (grep /^\Q$nick\E$/, @nicks);
                $uucount++;
-               push(@nicks, $_);
+               push(@nicks, $nick);
            }
        }
+       &::DEBUG(join ":", @nicks);
 
        if (scalar @nicks != $uucount) {
            &DEBUG("nicks != uucount...");