X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FMsg.pm;h=19c81484e5cd95662d489b673bc15f34578e8cdd;hb=a37c1c79176eefa3273445e1d51a656104b964e2;hp=fdcc9fa00c5eef4472bec4f64ad74ac331c7ff12;hpb=78ca91ff50a421f549543d94d097ec0843a8842d;p=spider.git

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