From 7c3edf71232cb453a4ed3f3053d0064ee7dabe24 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Fri, 9 Feb 2018 22:00:44 +0100
Subject: [PATCH] Yet more Chess960 castling fixes.

---
 Position.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Position.pm b/Position.pm
index 8cfc4a6..3e3e84f 100644
--- a/Position.pm
+++ b/Position.pm
@@ -74,7 +74,7 @@ sub from_fen {
 	if ($castling =~ /Q/) {
 		$pos->{'white_castle_q'} = _col_num_to_letter(_find_piece_col($board->[7], 'R'));
 	}
-	while ($castling =~ s/([A-H])//g) {
+	while ($castling =~ s/([A-H])//) {
 		my $rook_col = lc($1);
 		my $king_col = _col_num_to_letter(_find_piece_col($board->[7], 'K'));
 		if ($rook_col lt $king_col) {
@@ -89,7 +89,7 @@ sub from_fen {
 	if ($castling =~ /q/) {
 		$pos->{'black_castle_q'} = _col_num_to_letter(_find_piece_col($board->[0], 'r'));
 	}
-	while ($castling =~ s/([a-h])//g) {
+	while ($castling =~ s/([a-h])//) {
 		my $rook_col = $1;
 		my $king_col = _col_num_to_letter(_find_piece_col($board->[0], 'k'));
 		if ($rook_col lt $king_col) {
-- 
2.39.2