euchre-live

commit a49cecf45cef62ded576c010fff1e31c21cf6a96 (patch)
parent 7f43a583c6317e8cc38945328b65a87e575d713b
Author: Chris Karle <chriskarle@hotmail.com>
Date:   Sun, 29 Mar 2020 15:43:51 -0400

Dealer: fix Perl compile error (note Alex never reproduced)

Diffstat:
M
lib/Euchre/Dealer.pm
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git 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,