}
# white long castling
- if ($pv eq 'e1b1' && $piece eq 'K') {
+ if ($pv eq 'e1c1' && $piece eq 'K') {
my @nb = @$board;
# king
}
# black long castling
- if ($pv eq 'e8b8' && $piece eq 'k') {
+ if ($pv eq 'e8c8' && $piece eq 'k') {
my @nb = @$board;
# king