From 6dd4f0d4b11f86cc8490bbb0462259232fa80a7a Mon Sep 17 00:00:00 2001 From: "Steinar H. Gunderson" Date: Sun, 7 Jan 2018 01:43:20 +0100 Subject: [PATCH] Another castling fix. --- Position.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Position.pm b/Position.pm index cd0cc97..93bde53 100644 --- a/Position.pm +++ b/Position.pm @@ -84,7 +84,7 @@ sub from_fen { } } 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')); -- 2.39.2