make M$ TCP connx blocking again

[spider.git] / perl / Msg.pm

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 :-(
        } 
 }