diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tie/StdHandle.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tie/StdHandle.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tie/StdHandle.pm b/Master/tlpkg/tlperl/lib/Tie/StdHandle.pm index 3a1a3db4788..9192b2e5ee3 100644 --- a/Master/tlpkg/tlperl/lib/Tie/StdHandle.pm +++ b/Master/tlpkg/tlperl/lib/Tie/StdHandle.pm @@ -5,7 +5,7 @@ use strict; use Tie::Handle; use vars qw(@ISA $VERSION); @ISA = 'Tie::Handle'; -$VERSION = '4.2'; +$VERSION = '4.3'; =head1 NAME @@ -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]) } |