X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=remoteglot.pl;h=82932387990ac2c960ec74d38d71fe1703a32577;hp=c35a0518694789ad9c37452599226fd65977033a;hb=81935352427e8812bda89c856be7ee3ce36f3eb8;hpb=a14f75fff599d1a5e16b2f3e73fb673a67434928

diff --git a/remoteglot.pl b/remoteglot.pl
index c35a051..8293238 100755
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -275,8 +275,12 @@ sub handle_pgn {
 	}
 
 	my $pgn = Chess::PGN::Parse->new(undef, $body);
-	if (!defined($pgn) || !$pgn->read_game() || $body !~ /^\[/) {
-		warn "Error in parsing PGN from $url\n";
+	if (!defined($pgn)) {
+		warn "Error in parsing PGN from $url [body='$body']\n";
+	} elsif (!$pgn->read_game()) {
+		warn "Error in reading PGN game from $url [body='$body']\n";
+	} elsif ($body !~ /^\[/) {
+		warn "Malformed PGN from $url [body='$body']\n";
 	} else {
 		eval {
 			# Skip to the right game.