X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=Position.pm;fp=Position.pm;h=93bde53d334670e64a114f9881545ae37be8f987;hp=cd0cc975ff5fad2e3ff176ec7da634d76f1002ab;hb=6dd4f0d4b11f86cc8490bbb0462259232fa80a7a;hpb=89abaa6915a4b69a2a8344f7aca67ade4854eccb

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