From 1b5d27e82345dfb08c1a3b16940ae0ce09a266ec Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Tue, 25 Mar 2003 21:38:46 +0000
Subject: [PATCH] If the search server connection dies prematurely, give the
 right error message instead of referencing an undefined variable.

---
 lib/perl/Query.pm | 1 +
 1 file changed, 1 insertion(+)

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";
 
-- 
2.39.2