From a37c1c79176eefa3273445e1d51a656104b964e2 Mon Sep 17 00:00:00 2001 From: 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.43.0