diff options
Diffstat (limited to 'lib/Tie')
-rw-r--r-- | lib/Tie/Handle/stdhandle.t | 8 | ||||
-rw-r--r-- | lib/Tie/StdHandle.pm | 2 |
2 files changed, 7 insertions, 3 deletions
diff --git a/lib/Tie/Handle/stdhandle.t b/lib/Tie/Handle/stdhandle.t index 13a8255155..b1ae7c455b 100644 --- a/lib/Tie/Handle/stdhandle.t +++ b/lib/Tie/Handle/stdhandle.t @@ -10,7 +10,7 @@ tie *tst,Tie::StdHandle; $f = 'tst'; -print "1..13\n"; +print "1..14\n"; # my $file tests @@ -42,6 +42,10 @@ print "ok 11\n"; $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"); diff --git a/lib/Tie/StdHandle.pm b/lib/Tie/StdHandle.pm index 42c46b6197..9192b2e5ee 100644 --- a/lib/Tie/StdHandle.pm +++ b/lib/Tie/StdHandle.pm @@ -57,7 +57,7 @@ sub OPEN @_ == 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]) } |