- or download this
sub add
{
...
tie *$fh, "IO::Multiplex::Handle", $self, $fh;
return $fh;
}
- or download this
$rv = ($self->{_fhs}{"$fh"}{oldtie})
? $self->{_fhs}{"$fh"}{oldtie}->READ($data, BUFSIZ)
: &POSIX::read(fileno($fh), $data, BUFSIZ);
- or download this
$rv = ($self->{_fhs}{"$fh"}{oldtie})
? $self->{_fhs}{"$fh"}{oldtie}->READ($data, BUFSIZ)
: &POSIX::read(fileno($fh), $data, BUFSIZ);