X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=f2881c8ff9a947932c926bb1c4f5a0cf9e57fac1;hb=b5b494bfe442d798ed1d9a05fc2c4f9e31f4aa11;hp=746878e26e3c0df1288781e5420b35a1fec18be6;hpb=c9b73a6f1b6aa8c0496a6a7afd1542806ac1a577;p=spider.git

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 746878e2..f2881c8f 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -364,7 +364,8 @@ sub nolinger
 		my ($l, $t) = unpack("ll", $buf);
 		dbg("Linger is: $buf = $l $t");
 	}
-	setsockopt($conn->{sock}, SOL_SOCKET, SO_LINGER, pack("ll", 0, 0)) or confess "setsockopt: $!";
+	setsockopt($conn->{sock}, SOL_SOCKET, SO_LINGER, pack("ll", 0, 0)) or confess "setsockopt linger: $!";
+	setsockopt($conn->{sock}, SOL_SOCKET, SO_KEEPALIVE, 1) or confess "setsockopt keepalive: $!";
 	if (isdbg('sock') && ($buf = getsockopt($conn->{sock}, SOL_SOCKET, SO_LINGER))) {
 		my ($l, $t) = unpack("ll", $buf);
 		dbg("Linger is: $buf = $l $t");