From 66abb549375189d50dc00c93071afa0cf19611b1 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Thu, 8 Jun 2017 09:27:53 +0200
Subject: [PATCH] Minor fixes to the Perl frontend.

---
 www/opening-stats.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/www/opening-stats.pl b/www/opening-stats.pl
index f13e0a8..a88b0a2 100755
--- a/www/opening-stats.pl
+++ b/www/opening-stats.pl
@@ -48,6 +48,9 @@ eval {
 	$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'};
@@ -128,6 +131,7 @@ sub read_root_pgn {
 		or die "../pgnnames.txt: $!";
 	while (<$pgnnamesfh>) {
 		chomp;
+		s/^comp://;
 		push @pgnnames, $_;
 	}
 	close $pgnnamesfh;
-- 
2.39.2