Handle clocks that enter the PGN after the move do.

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index 699968f3afdccb6ec45a5cf6c73f670aa3c9905f..5d907d89f7aba97b35ff5849d9627338733e3a6a 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -346,6 +346,9 @@ sub handle_position {
        # ignore it.
        if (defined($pos_calculating) && $pos->fen() eq $pos_calculating->fen()) {
                $pos_calculating->{'result'} = $pos->{'result'};
+               for my $key ('white_clock', 'black_clock', 'white_clock_target', 'black_clock_target') {
+                       $pos_calculating->{$key} //= $pos->{$key};
+               }
                return;
        }