Be more aggressive about clearing out the UCI info. This fixes an issue

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index a58168bb3347d663fb5d0c867aa0bcc4bd6090f5..2c4bb9e8247be699bbd11cc21a5fd326a6389232 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -107,6 +107,7 @@ while (1) {
                        uciprint("position fen $fen");
                        uciprint("go infinite");
 
                        uciprint("position fen $fen");
                        uciprint("go infinite");
 

+                       %uciinfo = ();

                        $last_move = time;
 
                        # 
                        $last_move = time;
 
                        # 


@@ -478,6 +479,7 @@ sub output_screen {
                }
        };
        if ($@) {
                }
        };
        if ($@) {

+               %uciinfo = ();

                return;
        }
 
                return;
        }
 


@@ -510,7 +512,7 @@ sub output_screen {
                while (exists($uciinfo{'pv' . $mpv})) {
                        $text .= sprintf "  PV%2u", $mpv;
                        my $score = short_score(\%uciinfo, \%ficsinfo, $mpv);
                while (exists($uciinfo{'pv' . $mpv})) {
                        $text .= sprintf "  PV%2u", $mpv;
                        my $score = short_score(\%uciinfo, \%ficsinfo, $mpv);

-                       $text .= "  ($score)" if (!defined($score));
+                       $text .= "  ($score)" if (defined($score));

 
                        if (exists($uciinfo{'nodes' . $mpv}) && exists($uciinfo{'nps' . $mpv}) && exists($uciinfo{'depth' . $mpv})) {
                                $text .= sprintf " (%5u kn, %3u kn/s, %2u ply)",
 
                        if (exists($uciinfo{'nodes' . $mpv}) && exists($uciinfo{'nps' . $mpv}) && exists($uciinfo{'depth' . $mpv})) {
                                $text .= sprintf " (%5u kn, %3u kn/s, %2u ply)",