-
- if (uc($piece) eq $piece) {
- # white piece
- $black_check = 1 if ($board->can_reach($piece, $row, $col, $bkr, $bkc));
- } else {
- # black piece
- $white_check = 1 if ($board->can_reach($piece, $row, $col, $wkr, $wkc));
- }
+ return 1 if ($board->can_reach($piece, $row, $col, $kr, $kc));