diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tie/StdHandle.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/Tie/StdHandle.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/tlpkg/tlperl/lib/Tie/StdHandle.pm b/Master/tlpkg/tlperl/lib/Tie/StdHandle.pm index 9192b2e5ee3..0c58b706e40 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.3'; +$VERSION = '4.4'; =head1 NAME @@ -64,7 +64,8 @@ sub GETC { getc($_[0]) } sub WRITE { my $fh = $_[0]; - print $fh substr($_[1],0,$_[2]) + local $\; # don't print any line terminator + print $fh substr($_[1], $_[3], $_[2]); } |