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 dfb86634f05..fb79a986c6b 100644 --- a/Master/tlpkg/tlperl/lib/Tie/StdHandle.pm +++ b/Master/tlpkg/tlperl/lib/Tie/StdHandle.pm @@ -4,7 +4,7 @@ use strict; use Tie::Handle; our @ISA = 'Tie::Handle'; -our $VERSION = '4.5'; +our $VERSION = '4.6'; =head1 NAME @@ -48,7 +48,7 @@ sub TELL { tell($_[0]) } sub FILENO { fileno($_[0]) } sub SEEK { seek($_[0],$_[1],$_[2]) } sub CLOSE { close($_[0]) } -sub BINMODE { binmode($_[0]) } +sub BINMODE { &CORE::binmode(shift, @_) } sub OPEN { |