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) {
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) {