From: Martin Mares <mj@ucw.cz>
Date: Tue, 25 Mar 2003 21:38:46 +0000 (+0000)
Subject: If the search server connection dies prematurely, give the right error
X-Git-Tag: holmes-import~1264
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=1b5d27e82345dfb08c1a3b16940ae0ce09a266ec;p=libucw.git

If the search server connection dies prematurely, give the right error
message instead of referencing an undefined variable.
---

diff --git a/lib/perl/Query.pm b/lib/perl/Query.pm
index e07f64f1..9a8b168e 100644
--- a/lib/perl/Query.pm
+++ b/lib/perl/Query.pm
@@ -117,6 +117,7 @@ sub command($$) {
 
 	# Status line
 	my $stat = <$sock>;
+	$stat = "-903 Incomplete reply" if !defined $stat;
 	chomp $stat;
 	$stat =~ /^[+-]/ or return "-901 Reply parse error";