From d8d53d02bc050b5f099aecd1952c265a0744f820 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Sun, 15 Jun 2014 19:53:45 +0200
Subject: [PATCH] Fix some promotion bugs.

---
 Board.pm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/Board.pm b/Board.pm
index e6c04a3..d6a0f55 100644
--- a/Board.pm
+++ b/Board.pm
@@ -108,13 +108,12 @@ sub make_move {
 					$nb->[$to_row + 1][$to_col] = '-';
 				}
 			}
-		} else {
-			if (defined($promo) && $promo ne '') {
-				if ($piece eq 'p') {
-					$piece = $promo;
-				} else {
-					$piece = uc($promo);
-				}
+		}
+		if (defined($promo) && $promo ne '') {
+			if ($piece eq 'p') {
+				$piece = lc($promo);
+			} else {
+				$piece = uc($promo);
 			}
 		}
 	}
-- 
2.39.2