X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Frbn.pl;h=2a72dd8e39b0ea37f6bf3ea970b2d0daf7840df7;hb=a16516b3420ac10f2a8d147057a26c75492e430c;hp=ee8f0ed3b2852753f01413dab09badcb25e5519c;hpb=a19570a72252eecc0e1a213c0ab0b19e5d079d7a;p=spider.git

diff --git a/perl/rbn.pl b/perl/rbn.pl
index ee8f0ed3..2a72dd8e 100755
--- a/perl/rbn.pl
+++ b/perl/rbn.pl
@@ -72,8 +72,10 @@ for ($attempts = 1; $attempts <= 5; ++$attempts) {
 	last if $sock;
 }
 
-die "ADMIN,Cannot connect to $host:$port after 5 attempts $!" unless $sock;
+die "ADMIN,Cannot connect to $host:$port after 5 attempts $!\n" unless $sock;
 say "ADMIN,connected" if $dbg;
+$sock->timeout(0);
+
 print $sock "$mycall\r\n";
 say "ADMIN,call $mycall sent" if $dbg;