report SIP2 empty read

[Biblio-RFID.git] / scripts / RFID-JSONP-server.pl

diff --git a/scripts/RFID-JSONP-server.pl b/scripts/RFID-JSONP-server.pl
index 3e1d4fd..9396f5d 100755 (executable)
--- a/scripts/RFID-JSONP-server.pl
+++ b/scripts/RFID-JSONP-server.pl
@@ -92,15 +92,12 @@ sub sip2_message {
        
        my $expect = substr($send,0,2) | 0x01;
 
-       my $in = '';
-       my $repeat = 1;
-       while ( $in eq '' && $repeat < 10 ) {
-               $in = <$sock>;
-               $in =~ s/^\n//;
-               $in =~ s/\r$//;
-               warn "SIP2 <<<< ",dump($in), " repeat: $repeat\n";
-               $repeat++;
-       }
+       my $in = <$sock>;
+       $in =~ s/^\n//;
+       $in =~ s/\r$//;
+       warn "SIP2 <<<< ",dump($in), "\n";
+
+       die "empty read from SIP server" unless length $in > 1;
 
        die "expected $expect" unless substr($in,0,2) != $expect;