From: minima <minima>
Date: Fri, 11 Jan 2002 12:02:53 +0000 (+0000)
Subject: make M$ TCP connx blocking again
X-Git-Tag: R_1_50~86
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=b56ccffc81ac94b40755bb8c7485eb223f7e2ff4

make M$ TCP connx blocking again
---

diff --git a/Changes b/Changes
index e5ebe33e..a30c4d0f 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+11Jan02=======================================================================
+1. Make M$ TCP connx blocking again, sigh...
 10Jan02=======================================================================
 1. set SO_LINGER = 0 to try to prevent the system sending data on a closing
 socket. This MAY help some of the hanging problems (but I am now beginning
diff --git a/perl/Msg.pm b/perl/Msg.pm
index 3dcc1641..f6164132 100644
--- a/perl/Msg.pm
+++ b/perl/Msg.pm
@@ -74,7 +74,7 @@ BEGIN {
 		eval '*F_SETFL     = sub {     0 };';
 		eval '*IPPROTO_TCP     = sub {     6 };';
 		eval '*TCP_NODELAY     = sub {     1 };';
-		$blocking_supported = 1;
+		$blocking_supported = 0;   # it appears that this DOESN'T work :-(
 	} 
 }