}
my $pgn = Chess::PGN::Parse->new(undef, $body);
- if (!defined($pgn) || !$pgn->read_game()) {
+ if (!defined($pgn) || !$pgn->read_game() || $body !~ /^\[/) {
warn "Error in parsing PGN from $url\n";
} else {
eval {
if (exists($tags->{'WhiteClock'}) && exists($tags->{'BlackClock'})) {
$pos->{'white_clock'} = $tags->{'WhiteClock'};
$pos->{'black_clock'} = $tags->{'BlackClock'};
+
+ $pos->{'white_clock'} =~ s/\b(\d)\b/0$1/g;
+ $pos->{'black_clock'} =~ s/\b(\d)\b/0$1/g;
return;
}