Tie::StdHandle::READ was ignoring the optional fourth argument to
read(), specifying the offset into the target string.
$f = 'tst';
-print "1..13\n";
+print "1..14\n";
# my $file tests
$b = <$f>;
print "not " unless eof($f);
print "ok 12\n";
-print "not " unless close($f);
+seek($f,0,0);
+read($f,($b='scrinches'),4,4); # with offset
+print "'$b' not " unless $b eq 'scriSome';
print "ok 13\n";
+print "not " unless close($f);
+print "ok 14\n";
unlink("afile");
@_ == 2 ? open($_[0], $_[1]) : open($_[0], $_[1], $_[2]);
}
-sub READ { read($_[0],$_[1],$_[2]) }
+sub READ { &CORE::read(shift, \shift, @_) }
sub READLINE { my $fh = $_[0]; <$fh> }
sub GETC { getc($_[0]) }