From: minima Date: Fri, 11 Jan 2002 00:44:05 +0000 (+0000) Subject: even more M$ tuning X-Git-Tag: R_1_50~93 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=a37c1c79176eefa3273445e1d51a656104b964e2;p=spider.git even more M$ tuning --- diff --git a/perl/Msg.pm b/perl/Msg.pm index fdcc9fa0..19c81484 100644 --- a/perl/Msg.pm +++ b/perl/Msg.pm @@ -58,6 +58,8 @@ BEGIN { if ($^O eq 'MSWin32') { eval '*EINPROGRESS = sub { 10036 };'; eval '*EWOULDBLOCK = *EAGAIN = sub { 10035 };'; + eval '*F_GETFL = sub { 0 };'; + eval '*F_SETFL = sub { 0 };'; $blocking_supported = 1; } }