$rv = $io->block(); ## Find out the current setting
if( !$rv ) {
## Is non-blocking enabled or did the call fail?
}
$rv = $io->blocking( 1 ); ## Turn on blocking (turn off non-blocking)
if( !$rv ) {
## Was non-blocking previously enabled or did the call fail?
}
$rv = $io->blocking( 0 ); ## Turn off blocking
if( !$rv ) {
## Did we succeed or did the call fail?
}
What would or die $! be telling you?
A candidate for "Bad Interface Award of 1995, 1996, 1997, ... " :)
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
|