… | … | ||
---|---|---|---|
230 | } | 230 | } |
231 | 231 | ||
232 | sub fh_nonblocking($$) { | 232 | sub fh_nonblocking($$) { |
233 | my ($fh, $nb) = @_; | 233 | my ($fh, $nb) = @_; |
234 | 234 | ||
235 | if ($^O =~ /Win32/) { | 235 | if ($^O eq "MSWin32") { |
236 | $nb = ! ! $nb; | 236 | $nb = (! ! $nb) + 0; |
237 | ioctl $fh, 0x8004667e, $nb; # FIONBIO | 237 | ioctl $fh, 0x8004667e, $nb; # FIONBIO |
238 | } else { | 238 | } else { |
239 | fcntl $fh, &Fcntl::F_SETFL, $nb ? &Fcntl::O_NONBLOCK : 0; | 239 | fcntl $fh, &Fcntl::F_SETFL, $nb ? &Fcntl::O_NONBLOCK : 0; |
240 | } | 240 | } |
241 | 241 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |