Handle slightly unstandard PGN promotion syntax.

[remoteglot] / Board.pm

diff --git a/Board.pm b/Board.pm
index a867c74162cefde898c6f25d3fd37442c02bc2c5..655b7f1bbb70a43ff56be1a3f17cdc26524aa8b3 100644 (file)
--- a/Board.pm
+++ b/Board.pm
@@ -170,7 +170,7 @@ sub parse_pretty_move {
 
        # Parse promo
        my $promo;
-       if ($move =~ s/=([QRNB])$//) {
+       if ($move =~ s/=?([QRNB])$//) {
                $promo = $1;
        }