$line =~ s/ / /g; # Sometimes needed for Zappa Mexico
print UCILOG localtime() . " $engine->{'tag'} <= $line\n";
if ($line =~ /^info/) {
$line =~ s/ / /g; # Sometimes needed for Zappa Mexico
print UCILOG localtime() . " $engine->{'tag'} <= $line\n";
if ($line =~ /^info/) {
my ($info, $pos, $mpv, $invert) = @_;
if (defined($info->{'score_mate' . $mpv})) {
my ($info, $pos, $mpv, $invert) = @_;
if (defined($info->{'score_mate' . $mpv})) {