From f14762ad5ddf5881777f5861b19960784d224c71 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Fri, 14 Nov 2014 00:55:17 +0100
Subject: [PATCH] Handle slightly unstandard PGN promotion syntax.

---
 Board.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Board.pm b/Board.pm
index a867c74..655b7f1 100644
--- 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;
 	}
 
-- 
2.39.2