summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tie/StdHandle.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-04-23 21:46:20 +0000
committerKarl Berry <karl@freefriends.org>2014-04-23 21:46:20 +0000
commit300c1eb6d37d46078d448d6d58938d5a80cd68ff (patch)
tree23a0a8b9f8f5460b405119c4d3c163d2d488ca5e /Master/tlpkg/tlperl/lib/Tie/StdHandle.pm
parented55d86b7c5e18f6eccce80a1fb1423ca40a23b5 (diff)
(tl)perl 5.18.2 for windows from siep
git-svn-id: svn://tug.org/texlive/trunk@33648 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tie/StdHandle.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Tie/StdHandle.pm4
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]) }