diff options
author | Preston Cody <codeman@gentoo.org> | 2007-12-26 05:18:56 +0000 |
---|---|---|
committer | Preston Cody <codeman@gentoo.org> | 2007-12-26 05:18:56 +0000 |
commit | 0c2526b53e0753acd006f5aad32228d1da88a2d5 (patch) | |
tree | a95d8d9ae61f09a4421a75099be4259eb6978937 | |
parent | copied config reading from the client (diff) | |
download | scire-0c2526b53e0753acd006f5aad32228d1da88a2d5.tar.gz scire-0c2526b53e0753acd006f5aad32228d1da88a2d5.tar.bz2 scire-0c2526b53e0753acd006f5aad32228d1da88a2d5.zip |
if to unless b/c of possible undef.
svn path=/branches/new-fu/; revision=265
-rwxr-xr-x | client/scireclient.pl | 4 |
1 files changed, 2 insertions, 2 deletions
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}; |