| … | … | ||
|---|---|---|---|
| 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 |