summaryrefslogtreecommitdiff
path: root/Build/source/texk/tests
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-01-31 22:48:08 +0000
committerKarl Berry <karl@freefriends.org>2019-01-31 22:48:08 +0000
commit19697bbcefd2b6c4339efb559af609f1b9da8c9d (patch)
treee3946eb57f65ac994c2e2ad0bdca36bf5fd57638 /Build/source/texk/tests
parentfd225de282a67c2fb21f1b825f9941e6267f873d (diff)
sync
git-svn-id: svn://tug.org/texlive/trunk@49890 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/tests')
-rw-r--r--Build/source/texk/tests/TeXLive/TLUtils.pm10
1 files changed, 6 insertions, 4 deletions
diff --git a/Build/source/texk/tests/TeXLive/TLUtils.pm b/Build/source/texk/tests/TeXLive/TLUtils.pm
index 6c30198cff2..aca30855ad5 100644
--- a/Build/source/texk/tests/TeXLive/TLUtils.pm
+++ b/Build/source/texk/tests/TeXLive/TLUtils.pm
@@ -1,11 +1,12 @@
+# $Id: TLUtils.pm 49855 2019-01-28 22:47:02Z karl $
# TeXLive::TLUtils.pm - the inevitable utilities for TeX Live.
-# Copyright 2007-2018 Norbert Preining, Reinhard Kotucha
+# Copyright 2007-2019 Norbert Preining, Reinhard Kotucha
# This file is licensed under the GNU General Public License version 2
# or any later version.
package TeXLive::TLUtils;
-my $svnrev = '$Revision: 49226 $';
+my $svnrev = '$Revision: 49855 $';
my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown";
sub module_revision { return $_modulerevision; }
@@ -3475,12 +3476,13 @@ sub tlwarn {
=item C<tldie ($str1, $str2, ...)>
-Uses C<tlwarn> to issue a warning, then exits with exit code 1.
+Uses C<tlwarn> to issue a warning for @_ preceded by a newline, then
+exits with exit code 1.
=cut
sub tldie {
- tlwarn(@_);
+ tlwarn("\n", @_);
if ($::gui_mode) {
Tk::exit(1);
} else {