One more deadly testcase.

[libucw.git] / lib / perl / Query.pm

diff --git a/lib/perl/Query.pm b/lib/perl/Query.pm
index e07f64f190af131b6db9993f427feb892d0c84e0..9a8b168e79978047138394ffbd537829a5ef6fc0 100644 (file)
--- 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";