From 59824f48d09192d1c535adecf5ee2e4ee2ed47d5 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Fri, 8 Apr 2016 01:37:43 +0100
Subject: [PATCH] query_routesearch: fix to not complain about >=

---
 yarrg/web/query_routesearch | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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