diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-06-21 19:02:28 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-06-22 06:09:04 -0700 |
| commit | 7762c3748b5616504fc9a8c5dd0c0e078d85eec5 (patch) | |
| tree | 2b36a6051fe487b5311ec71f5d75da78a673f79e /lib/Tie/StdHandle.pm | |
| parent | c033ac4eaec8bbabcbe8d8b4f8bfa5bbd61ca118 (diff) | |
| download | perl-7762c3748b5616504fc9a8c5dd0c0e078d85eec5.tar.gz | |
[perl #112826] Make Tie::StdHandle::READ respect offset
Tie::StdHandle::READ was ignoring the optional fourth argument to
read(), specifying the offset into the target string.
Diffstat (limited to 'lib/Tie/StdHandle.pm')
| -rw-r--r-- | lib/Tie/StdHandle.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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]) } |