… | … | ||
---|---|---|---|
232 | sub fh_nonblocking($$) { | 232 | sub fh_nonblocking($$) { |
233 | my ($fh, $nb) = @_; | 233 | my ($fh, $nb) = @_; |
234 | 234 | ||
235 | if ($^O eq "MSWin32") { | 235 | if ($^O eq "MSWin32") { |
236 | $nb = (! ! $nb) + 0; | 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 | ||
242 | } | 242 | } |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |