quiet warning caused by server_up being undef for false

This commit is contained in:
Isaac Connor 2019-09-20 10:36:08 -04:00
parent 308236b4ad
commit f0a8595e50
1 changed files with 1 additions and 1 deletions

View File

@ -83,7 +83,7 @@ if ( $options{command} ) {
my $tries = 10; my $tries = 10;
my $server_up; my $server_up;
while ( $tries and ! ( $server_up = connect(CLIENT, $saddr) ) ) { while ( $tries and ! ( $server_up = connect(CLIENT, $saddr) ) ) {
Debug("Failed to connect to $server_up at $sock_file"); Debug("Failed to connect to zmcontrol server at $sock_file");
runCommand("zmdc.pl start zmcontrol.pl --id=$id"); runCommand("zmdc.pl start zmcontrol.pl --id=$id");
sleep 1; sleep 1;
$tries -= 1; $tries -= 1;