summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/Tie/StdHandle.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/Tie/StdHandle.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/Tie/StdHandle.pm5
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]);
}