]> dxcluster.org Git - spider.git/commitdiff
even more M$ tuning
authorminima <minima>
Fri, 11 Jan 2002 00:44:05 +0000 (00:44 +0000)
committerminima <minima>
Fri, 11 Jan 2002 00:44:05 +0000 (00:44 +0000)
perl/Msg.pm

index fdcc9fa00c5eef4472bec4f64ad74ac331c7ff12..19c81484e5cd95662d489b673bc15f34578e8cdd 100644 (file)
@@ -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;
        } 
 }