From a37c1c79176eefa3273445e1d51a656104b964e2 Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Fri, 11 Jan 2002 00:44:05 +0000
Subject: [PATCH] even more M$ tuning

---
 perl/Msg.pm | 2 ++
 1 file changed, 2 insertions(+)

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