##
$rv = ($self->{_fhs}{"$fh"}{oldtie})
? $self->{_fhs}{"$fh"}{oldtie}->READ($data, BUFSIZ)
: &POSIX::read(fileno($fh), $data, BUFSIZ);
####
$rv = ($self->{_fhs}{"$fh"}{oldtie})
? $self->{_fhs}{"$fh"}{oldtie}->READ($data, BUFSIZ)
: &POSIX::read(fileno($fh), $data, BUFSIZ);