texlive[44293] Master/tlpkg/TeXLive: set $: to just space and

[commits+karl at tug.org]

Revision: 44293
          http://tug.org/svn/texlive?view=revision&revision=44293
Author:   karl
Date:     2017-05-11 20:08:47 +0200 (Thu, 11 May 2017)
Log Message:
-----------
set $: to just space and newline, to avoid breaking at - in longdesc blocks; do not repeat definition of multilineformat

Modified Paths:
--------------
    trunk/Master/tlpkg/TeXLive/TLPOBJ.pm
    trunk/Master/tlpkg/TeXLive/TLPSRC.pm

Modified: trunk/Master/tlpkg/TeXLive/TLPOBJ.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPOBJ.pm	2017-05-11 16:15:39 UTC (rev 44292)
+++ trunk/Master/tlpkg/TeXLive/TLPOBJ.pm	2017-05-11 18:08:47 UTC (rev 44293)
@@ -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 @@
   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 @@
   return $self->{'cataloguedata'};
 }
 
+$: = " \n"; # don't break at -
 format multilineformat =
 longdesc ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
 $_tmp

Modified: trunk/Master/tlpkg/TeXLive/TLPSRC.pm
===================================================================
--- trunk/Master/tlpkg/TeXLive/TLPSRC.pm	2017-05-11 16:15:39 UTC (rev 44292)
+++ trunk/Master/tlpkg/TeXLive/TLPSRC.pm	2017-05-11 18:08:47 UTC (rev 44293)
@@ -1,6 +1,6 @@
 # $Id$
 # TeXLive::TLPSRC.pm - module for handling tlpsrc 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.
 
@@ -197,7 +197,7 @@
 sub writeout {
   my $self = shift;
   my $fd = (@_ ? $_[0] : STDOUT);
-  format_name $fd "multilineformat";
+  format_name $fd "multilineformat";  # format defined in TLPOBJ, and $:
   $fd->format_lines_per_page (99999); # no pages in this format
   print $fd "name ", $self->name, "\n";
   print $fd "category ", $self->category, "\n";
@@ -628,11 +628,6 @@
   return @{ $self->{'postactions'} };
 }
 
-format multilineformat =
-longdesc ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
-$_tmp
-.
-
 1;
 __END__