X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fshow%2Fusers.pl;h=c9df4d6943a785545c1a66a6902f3c1c21f89003;hb=18f2934d60c7a702ac9eeca325914e4c346c0621;hp=a3fb3cc26ee510aeae8879bacd99a52f34d7c258;hpb=097f2329b24fd3082e880e789f8a38224784b0e0;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;
 }