die without response from server

[Biblio-SIP2.git] / lib / SIP2 / SC.pm

diff --git a/lib/SIP2/SC.pm b/lib/SIP2/SC.pm
index 7a28d65..8d8554c 100644 (file)
--- a/lib/SIP2/SC.pm
+++ b/lib/SIP2/SC.pm
@@ -43,6 +43,9 @@ sub message {
        my $expect = substr($send,0,2) | 0x01;
 
        my $in = <$sock>;
+
+       die "ERROR: no response from $ip\n" unless $in;
+
        $in =~ s/^\n// && warn "removed LF from beginning";
        $self->dump_message( "<<<< $ip ", $in );
        die "expected $expect" unless substr($in,0,2) != $expect;