summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-01-28 22:47:02 +0000
committerKarl Berry <karl@freefriends.org>2019-01-28 22:47:02 +0000
commitce06e970533ac446a5229a6e05dcbc305ef16075 (patch)
tree502f080f309d849aeb23b7a91a1d5ecd9b388305 /Master/tlpkg/TeXLive/TLUtils.pm
parent708ca6d80de4ace083376877e5ee9160a9f9001f (diff)
consistently use $0 on tldie msgs; precede with newline
git-svn-id: svn://tug.org/texlive/trunk@49855 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 3f6746c36e0..cce5af67328 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -1,6 +1,6 @@
# $Id$
# 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.
@@ -3476,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 {