}
}
if ($castling =~ /k/) {
- $pos->{'white_castle_k'} = _col_num_to_letter(_find_piece_col_from_right($board->[0], 'r'));
+ $pos->{'black_castle_k'} = _col_num_to_letter(_find_piece_col_from_right($board->[0], 'r'));
}
if ($castling =~ /q/) {
$pos->{'black_castle_q'} = _col_num_to_letter(_find_piece_col($board->[0], 'r'));