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

diff --git a/perl/Msg.pm b/perl/Msg.pm
index 15dc26d4..746878e2 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -359,7 +359,16 @@ sub new_server {
 sub nolinger
 {
 	my $conn = shift;
+	my $buf;
+	if (isdbg('sock') && ($buf = getsockopt($conn->{sock}, SOL_SOCKET, SO_LINGER))) {
+		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: $!";
+	if (isdbg('sock') && ($buf = getsockopt($conn->{sock}, SOL_SOCKET, SO_LINGER))) {
+		my ($l, $t) = unpack("ll", $buf);
+		dbg("Linger is: $buf = $l $t");
+	}
 }
 
 sub dequeue