From be27a8c1495840effbd3c0044e205bfa5ca06808 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Sun, 16 Nov 2014 19:33:28 +0100
Subject: [PATCH] Fix 7-man tablebase mate length.

---
 remoteglot.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/remoteglot.pl b/remoteglot.pl
index f383bb6..675ef50 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -511,7 +511,7 @@ sub output {
 
 		my $t = $tb_cache{$fen};
 		my $pv = $t->{'pv'};
-		my $matelen = int((1 + scalar @$pv) / 2);
+		my $matelen = int((1 + $t->{'score'}) / 2);
 		if ($t->{'result'} eq '1/2-1/2') {
 			$info->{'score_cp'} = 0;
 		} elsif ($t->{'result'} eq '1-0') {
@@ -946,7 +946,8 @@ sub handle_tb_lookup_return {
 				}
 				$tb_cache{$fen} = {
 					result => $pgn->result,
-					pv => \@uci_moves
+					pv => \@uci_moves,
+					score => $response->{'Response'}{'Score'},
 				};
 				output();
 			}
-- 
2.39.2