X-Git-Url: https://git.sesse.net/?p=remoteglot;a=blobdiff_plain;f=Board.pm;h=8cf603d0f5be052c762d3f127d7bba87dc047196;hp=f011b17510221f65774c1ae249a71243f1d451c5;hb=8879bba9f6bacf9e246020641ff5873669b3df95;hpb=3b624f881c25e5455e2972eb2d22efe37a5c9f38

diff --git a/Board.pm b/Board.pm
index f011b17..8cf603d 100644
--- a/Board.pm
+++ b/Board.pm
@@ -378,6 +378,7 @@ sub _find_kings {
 	my ($wkr, $wkc, $bkr, $bkc);
 
 	for my $row (0..7) {
+		next unless grep { $_ eq 'K' || $_ eq 'k' } @{$board->[$row]};
 		for my $col (0..7) {
 			my $piece = $board->[$row][$col];
 			if ($piece eq 'K') {