develooper Front page | perl.perl5.porters | Postings from December 2004

Re: [perl #33619] IO::Socket::INET.pm bug fix

Thread Previous
From:
perl5-porters
Date:
December 31, 2004 02:46
Subject:
Re: [perl #33619] IO::Socket::INET.pm bug fix
Message ID:
cr3am0$bqr$1@post.home.lunix
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


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About