X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fusers.pl;h=c9df4d6943a785545c1a66a6902f3c1c21f89003;hb=679037f49e292b15a73dce96699c15b9e3049711;hp=a3fb3cc26ee510aeae8879bacd99a52f34d7c258;hpb=3c6b5ea97e035155d995e1c1f203e975ae8a1e22;p=spider.git

diff --git a/cmd/show/users.pl b/cmd/show/users.pl
index a3fb3cc2..c9df4d69 100644
--- a/cmd/show/users.pl
+++ b/cmd/show/users.pl
@@ -30,14 +30,12 @@ if (@list) {
 	my $node = $main::routeroot;
 	push @out, join(' ', $self->msg('userconn'), $main::mycall);
 	my $call;
-	my $i = 0;
 	my @l;
 	my @val = sort $node->users;
 	foreach $call (@val) {
-		if ($i >= 5) {
+		if (@l >= 5) {
 			push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
 			@l = ();
-			$i = 0;
 		}
 		my $uref = Route::User::get($call);
 		my $s = $call;
@@ -47,9 +45,8 @@ if (@list) {
 			$s = "$call?";
 		}
 		push @l, $s;
-		$i++;
 	}
-	push @l, "" while $i++ < 5;
+	push @l, "" while @l < 5;
 	push @out, sprintf "%-12s %-12s %-12s %-12s %-12s", @l;
 }