From c2885aa2f66508a5f6257040d1ab6f302e42f37f Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 22 Oct 2014 15:13:16 -0400
Subject: fix players being unable to move

---
 lib/Bot/Zulip/Chess.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/lib/Bot/Zulip/Chess.pm b/lib/Bot/Zulip/Chess.pm
index 7b9bf06..889fd28 100644
--- a/lib/Bot/Zulip/Chess.pm
+++ b/lib/Bot/Zulip/Chess.pm
@@ -174,9 +174,7 @@ sub draw_state ($self) {
 sub players_turn ($self, $player) {
     my $method = $self->_chessboard->to_move ? 'white_player' : 'black_player';
     my $expected_player = $self->$method;
-    return if grep { $_ eq $player } grep { defined } (
-        $self->white_player, $self->black_player
-    );
+    return if !$self->has_black_player && $self->white_player eq $player;
     return 1 if !defined($expected_player);
     return 1 if $expected_player eq $player;
     return;
-- 
cgit v1.2.3