ls.pl: minor style fixes

diff --git a/scripts/ls.pl b/scripts/ls.pl
index 4bdce133c664b68dc103cc53b86c067b8de48a29..7af5e4e99b1a224da0bea5922d04a6080df430df 100644 (file)
--- a/scripts/ls.pl
+++ b/scripts/ls.pl
@@ -15,25 +15,19 @@ $VERSION = "0.02";
 
 sub cmd_ls {
        my ($data, $server, $channel) = @_;
-       my @nicks;
-       my $n;
-       my $nick;
 
        if ($channel->{type} ne "CHANNEL") {
+               Irssi::print("You are not on a channel");
 
-               Irssi::print("Your are not on a channel");
                return;
-
        }
 
-       @nicks = $channel->nicks();
-
-       foreach $nick (@nicks) {
+       my @nicks = $channel->nicks();
 
-               $n = $nick->{nick} . "!" . $nick->{host};
+       foreach my $nick (@nicks) {
+               my $n = $nick->{nick} . "!" . $nick->{host};
 
                $channel->print("$n") if $n =~ /$data/i;
-               
        }
 }