$root_game->{'eco'} = $pgn->eco;
$root_game->{'moves'} = int(((scalar @{$pgn->moves}) + 1) / 2);
};
+if ($@) {
+ print STDERR "Error while getting root move: $@\n";
+}
# Explore one move out.
my $white_left = $json_root_pos->{'white'};
or die "../pgnnames.txt: $!";
while (<$pgnnamesfh>) {
chomp;
+ s/^comp://;
push @pgnnames, $_;
}
close $pgnnamesfh;