From a49cecf45cef62ded576c010fff1e31c21cf6a96 Mon Sep 17 00:00:00 2001
From: Chris Karle <chriskarle@hotmail.com>
Date: Sun, 29 Mar 2020 15:43:51 -0400
Subject: [PATCH] Dealer: fix Perl compile error (note Alex never reproduced)

---
 lib/Euchre/Dealer.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Euchre/Dealer.pm b/lib/Euchre/Dealer.pm
index 37f1763..5b975f7 100644
--- a/lib/Euchre/Dealer.pm
+++ b/lib/Euchre/Dealer.pm
@@ -196,7 +196,7 @@ sub broadcast_gamestate {
                  (@{$game->{players}}, @{$game->{spectators}});
 
     # Translate to human readable names for clients
-    my @pnames = map { defined ? $PLAYERS{$_}->{name} : 'Empty' } @{$game->{players}};
+    my @pnames = map { defined($_) ? $PLAYERS{$_}->{name} : 'Empty' } @{$game->{players}};
     my @snames = map { $PLAYERS{$_}->{name} } @{$game->{spectators}};
     my $msg = {
         %$game,
--
libgit2 1.1.1