X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=remoteglot.pl;h=b75d85e1961621c1fb5334242c1ac64ca052bc4e;hp=b466d4dc2721c48126f0253ec3f6838e318c40f1;hb=85b065a270537148c7135f239d07dcb83020ec4f;hpb=bfb31cc6182daab7087e2922fde47c3441e3eb65 diff --git a/remoteglot.pl b/remoteglot.pl index b466d4d..b75d85e 100755 --- a/remoteglot.pl +++ b/remoteglot.pl @@ -291,7 +291,11 @@ sub handle_pgn { } $pgn->parse_game({ save_comments => 'yes' }); - my $pos = Position->start_pos($pgn->white, $pgn->black); + my $white = $pgn->white; + my $black = $pgn->black; + $white =~ s/,.*//; # Remove first name. + $black =~ s/,.*//; # Remove first name. + my $pos = Position->start_pos($white, $black); my $moves = $pgn->moves; my @uci_moves = (); my @repretty_moves = ();