diff options
author | Jesse Luehrs <doy@tozt.net> | 2014-10-22 15:17:28 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2014-10-22 15:17:28 -0400 |
commit | a920c76780625a777ef609c20d308753e41348ca (patch) | |
tree | ce583529cbb991e959d247df2370da85fa0e63cc | |
parent | c2885aa2f66508a5f6257040d1ab6f302e42f37f (diff) | |
download | Bot-Zulip-Chess-a920c76780625a777ef609c20d308753e41348ca.tar.gz Bot-Zulip-Chess-a920c76780625a777ef609c20d308753e41348ca.zip |
fix undef warning
-rw-r--r-- | lib/Bot/Zulip/Chess.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/Bot/Zulip/Chess.pm b/lib/Bot/Zulip/Chess.pm index 889fd28..eb9b749 100644 --- a/lib/Bot/Zulip/Chess.pm +++ b/lib/Bot/Zulip/Chess.pm @@ -174,7 +174,9 @@ 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 !$self->has_black_player && $self->white_player eq $player; + return if !$self->has_black_player + && $self->has_white_player + && $self->white_player eq $player; return 1 if !defined($expected_player); return 1 if $expected_player eq $player; return; |