From: minima <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://www.dxcluster.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=a37c1c79176eefa3273445e1d51a656104b964e2

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;
 	} 
 }