Front page | perl.perl5.porters |
Postings from December 2004
In article <rt-3.0.11-33619-104814.12.4116838261686@perl.org>,
Chris Drake (via RT) <perlbug-followup@perl.org> writes:
> + # these 8 lines contributed by Chris Drake:-
> + if(defined $arg->{Blocking}) {
> + if($arg->{Blocking}) {
> + $sock->blocking($arg->{Blocking})
> + } else {
> + $sock->blocking(undef);
> + my $temp = 1; ioctl($sock, 0x8004667E, \$temp); # Don't let it block us.
This looks horribly unportable !
0x8004667E seems to be windows FIONBIO. Why is it needed beyond the
turning of of blocking ?
> + }
> + }
> +
> +
Thread Previous