Fix an issue where the prettyprinter would think that moving next to the

[remoteglot] / remoteglot.pl

diff --git a/remoteglot.pl b/remoteglot.pl
index f6a94028ef2d4ac1d65705f20ed08261bd86b46d..eecad8f215d54efbac8d2a6e6aac4a63991566a0 100755 (executable)
--- a/remoteglot.pl
+++ b/remoteglot.pl
@@ -542,7 +542,7 @@ sub in_check {
        for my $row (0..7) {
                for my $col (0..7) {
                        my $piece = substr($board->[$row], $col, 1);
-                       next if ($piece eq '-' || lc($piece) eq 'k');
+                       next if ($piece eq '-');
                
                        if (uc($piece) eq $piece) {
                                # white piece