ev => $ev,
cb => $cb,
seen_uciok => 0,
+ stopping => 0,
};
print $uciwrite "uci\n";
if (!$engine->{'seen_uciok'}) {
# Gobble up lines until we see uciok.
- if ($line =~ /^id (\S+) (.*)$/) {
+ if ($line =~ /^id (\S+) (.*?)\s*$/) {
$engine->{'id'}->{$1} = $2;
} elsif ($line =~ /^uciok$/) {
$engine->{'seen_uciok'} = 1;