diff options
| author | Karl Berry <karl@freefriends.org> | 2019-01-31 22:48:08 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2019-01-31 22:48:08 +0000 |
| commit | 19697bbcefd2b6c4339efb559af609f1b9da8c9d (patch) | |
| tree | e3946eb57f65ac994c2e2ad0bdca36bf5fd57638 /Build/source/texk/tests/TeXLive/TLUtils.pm | |
| parent | fd225de282a67c2fb21f1b825f9941e6267f873d (diff) | |
sync
git-svn-id: svn://tug.org/texlive/trunk@49890 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/tests/TeXLive/TLUtils.pm')
| -rw-r--r-- | Build/source/texk/tests/TeXLive/TLUtils.pm | 10 |
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 { |