From 0c2526b53e0753acd006f5aad32228d1da88a2d5 Mon Sep 17 00:00:00 2001 From: Preston Cody Date: Wed, 26 Dec 2007 05:18:56 +0000 Subject: if to unless b/c of possible undef. svn path=/branches/new-fu/; revision=265 --- client/scireclient.pl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'client') diff --git a/client/scireclient.pl b/client/scireclient.pl index fc02c54..4cd8f0e 100755 --- a/client/scireclient.pl +++ b/client/scireclient.pl @@ -162,8 +162,8 @@ sub identify_client { send_command("IDENTIFY", $client_key); my $response = get_response(); $response =~ /^(OK|ERROR)(?: (.+))?$/; - if($1 eq "ERROR") { - print "Could not identify to server: $2\n"; + unless ($1 and ($1 eq "OK")) { + print "Could not identify to server: $response\n"; return 0; } # print "Registered client $conf{client_id}\n" if $conf{debug}; -- cgit v1.2.3-65-gdbad