diff options
Diffstat (limited to 'scripts/clones.pl')
| -rw-r--r-- | scripts/clones.pl | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/scripts/clones.pl b/scripts/clones.pl index a562b968..5a0c61a2 100644 --- a/scripts/clones.pl +++ b/scripts/clones.pl @@ -1,16 +1,15 @@ # /CLONES - display real name of nick use Irssi; -use Irssi::Irc; sub cmd_clones { my ($data, $server, $channel) = @_; my %hostnames, $host, @nicks, $nick; - @nicks = $channel->nicklist_getnicks(); + @nicks = $channel->nicks(); foreach $nick (@nicks) { - $hostnames{$nick->values()->{'host'}}++; + $hostnames{$nick->{host}}++; } $channel->print("Clones:"); |