X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=lib%2Fperl%2FQuery.pm;h=9a8b168e79978047138394ffbd537829a5ef6fc0;hb=3cf2b0aaf15a2076c18de7e684703c175ed05d4e;hp=e07f64f190af131b6db9993f427feb892d0c84e0;hpb=4fcfc78e76770513eb65c594d76a21c0e45773f9;p=libucw.git

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