added "use strict" for all scripts, made some small changes.

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1639 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2001-07-16 20:22:45 +00:00 committed by cras
commit 69a6096b8b
8 changed files with 37 additions and 31 deletions

View file

@ -1,10 +1,11 @@
# /CLONES - display real name of nick
use Irssi;
use strict;
sub cmd_clones {
my ($data, $server, $channel) = @_;
my %hostnames, $host, @nicks, $nick;
my (%hostnames, $host, @nicks, $nick);
@nicks = $channel->nicks();
@ -19,7 +20,6 @@ sub cmd_clones {
$channel->print("$host: $clones");
}
}
return 1;
}
Irssi::command_bind('clones', 'cmd_clones');