From: Steinar H. Gunderson <sgunderson@bigfoot.com>
Date: Sun, 15 Jun 2014 17:53:45 +0000 (+0200)
Subject: Fix some promotion bugs.
X-Git-Url: https://git.sesse.net/?a=commitdiff_plain;h=d8d53d02bc050b5f099aecd1952c265a0744f820;p=remoteglot-book

Fix some promotion bugs.
---

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);
 			}
 		}
 	}