- seek($self->{in}, $self->{off}, SEEK_SET) or
- die "seek ($self->{path}): $!";
- my $r = read($self->{in}, my $buf, $n);
+ sysseek($self->{in}, $self->{off}, SEEK_SET) or
+ die "sysseek ($self->{path}): $!";
+ my $r = sysread($self->{in}, my $buf, $n);