From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 8 Apr 2016 00:37:43 +0000 (+0100)
Subject: query_routesearch: fix to not complain about >=
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=commitdiff_plain;h=59824f48d09192d1c535adecf5ee2e4ee2ed47d5

query_routesearch: fix to not complain about >=
---

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) {