diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index c0c2dcb5066..0a2eae5bcfa 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -331,10 +331,10 @@ sub writeout { # ugly hack to get rid of use FileHandle; see man perlform #format_name $fd "multilineformat"; select((select($fd),$~ = "multilineformat")[0]); - $= = 99999; # no pages in this format + $fd->format_lines_per_page (99999); # no pages in this format if (defined($self->{'longdesc'})) { $_tmp = "$self->{'longdesc'}"; - write $fd; + write $fd; # use that multilineformat } if (defined($self->{'depends'})) { foreach (@{$self->{'depends'}}) { |