From 8879bba9f6bacf9e246020641ff5873669b3df95 Mon Sep 17 00:00:00 2001
From: "Steinar H. Gunderson" <sgunderson@bigfoot.com>
Date: Sat, 20 Sep 2014 18:44:17 +0200
Subject: [PATCH] Tiny optimization in _find_kings.

---
 Board.pm | 1 +
 1 file changed, 1 insertion(+)

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