make M$ TCP connx blocking again

diff --git a/Changes b/Changes
index e5ebe33ee45e0e32f193c2372d9407b47cdacbe8..a30c4d0f392de5fb1785523f1c0030824ee8c519 100644 (file)
--- 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 3dcc1641060277c2a21593a575cdedf0c778972c..f6164132a33469ae7757e171863d722146e10195 100644 (file)
--- 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 :-(
        } 
 }