X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;ds=sidebyside;f=yarrg%2Fweb%2Fquery_routesearch;h=151824cdec7a8a77db75f0b6b1c0c1055a0da2fa;hb=59824f48d09192d1c535adecf5ee2e4ee2ed47d5;hp=478b622d8dcef39acb7933de2231b0886e6539de;hpb=3276ebe915a34abf34cf9639e83c85b8adac5245;p=ypp-sc-tools.web-test.git

diff --git a/yarrg/web/query_routesearch b/yarrg/web/query_routesearch
index 478b622..151824c 100644
--- a/yarrg/web/query_routesearch
+++ b/yarrg/web/query_routesearch
@@ -228,7 +228,7 @@ while (<$fh>) {
 	}
 	die unless m/^ \@ *\d+ ([ap])\# *\d+ \|.*\| *(\d+)lg *\| *\d+ +(\d+) +(\d+) *\| ([0-9 ]+)$/;
 	my ($ap,$isles) = (uc $1,$5);
-	next if $results{$ap} && %{$results{$ap}} >= $maxcountea;
+	next if $results{$ap} && keys %{$results{$ap}} >= $maxcountea;
 	my $item= { A => $3, P => $4, Leagues => $2 };
 	my (@i, @fi, @a);
 	foreach (split / /, $isles) {