From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Wed, 23 Mar 2016 19:27:55 +0000 (+0100)
Subject: Enable the tbprobe cache.
X-Git-Url: https://git.sesse.net/?p=remoteglot;a=commitdiff_plain;h=7c106ea7120a60e4e71a59bb679fa9ce09fc241a

Enable the tbprobe cache.
---

diff --git a/remoteglot.pl b/remoteglot.pl
index 9439a4b..1b06f05 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -556,7 +556,7 @@ sub complete_using_tbprobe {
 	my $key = join('', @pv);
 	my @moves = ();
 	if (exists($pos->{'tbprobe_cache'}{$key})) {
-		@moves = $pos->{'tbprobe_cache'}{$key};
+		@moves = @{$pos->{'tbprobe_cache'}{$key}};
 	} else {
 		if ($mpv ne '') {
 			# Force doing at least one move of the PV.
@@ -586,6 +586,8 @@ sub complete_using_tbprobe {
 			($pos, $uci_move) = $pos->make_pretty_move($move);
 			push @moves, $uci_move;
 		}
+
+		$pos->{'tbprobe_cache'}{$key} = \@moves;
 	}
 
 	$info->{'pv' . $mpv} = \@moves;