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;
}
}
0x80000000 | (4 << 16) | (ord('f') << 8) | 126,
"$_[1]"
);
- }
-
- my $flags = fcntl ($_[0], F_GETFL, 0);
- if ($_[1]) {
- $flags &= ~O_NONBLOCK;
} else {
- $flags |= O_NONBLOCK;
+ my $flags = fcntl ($_[0], F_GETFL, 0);
+ if ($_[1]) {
+ $flags &= ~O_NONBLOCK;
+ } else {
+ $flags |= O_NONBLOCK;
+ }
+ fcntl ($_[0], F_SETFL, $flags);
}
- fcntl ($_[0], F_SETFL, $flags);
}
# save it