X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=remoteglot.pl;h=1b06f05f88c2f29ff65c24ba011817afbd65acec;hp=9439a4bc4d0b063c59b1eb2738cc9cd0c4b987d5;hb=7c106ea7120a60e4e71a59bb679fa9ce09fc241a;hpb=f26a218756768fcbbbcd332e56029053e359003c

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;