summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-05-11 18:08:47 +0000
committerKarl Berry <karl@freefriends.org>2017-05-11 18:08:47 +0000
commit5593c8e2719c3ace767d347b769f172886490a0f (patch)
tree06de0cc7927eebdaacc3f8b28b685cc7a0d7d5c7 /Master/tlpkg/TeXLive/TLPOBJ.pm
parente37eefe7f19eb9756b8c1dca37ff149e3b24b785 (diff)
set $: to just space and newline, to avoid breaking at - in longdesc blocks; do not repeat definition of multilineformat
git-svn-id: svn://tug.org/texlive/trunk@44293 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 8f9cbf33196..d7a9d795e30 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -1,6 +1,6 @@
# $Id$
# TeXLive::TLPOBJ.pm - module for using tlpobj files
-# Copyright 2007-2016 Norbert Preining
+# Copyright 2007-2017 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
@@ -279,7 +279,7 @@ sub writeout {
defined($self->{'shortdesc'}) && print $fd "shortdesc $self->{'shortdesc'}\n";
defined($self->{'license'}) && print $fd "license $self->{'license'}\n";
defined($self->{'relocated'}) && $self->{'relocated'} && print $fd "relocated 1\n";
- # ugly hack to get rid of use FileHandle; see man perlform
+ # don't want to use FileHandle.pm; see man perlform
#format_name $fd "multilineformat";
select((select($fd),$~ = "multilineformat")[0]);
$fd->format_lines_per_page (99999); # no pages in this format
@@ -1351,6 +1351,7 @@ sub cataloguedata {
return $self->{'cataloguedata'};
}
+$: = " \n"; # don't break at -
format multilineformat =
longdesc ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
$_tmp