summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLUtils.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-05-09 03:11:03 +0000
committerNorbert Preining <preining@logic.at>2016-05-09 03:11:03 +0000
commit94d481173b9793dbb8f68c7d28ecbe0fb592882b (patch)
tree939e439142ca67e45aee794d6ad98474a5bb31a9 /Master/tlpkg/TeXLive/TLUtils.pm
parentf4a82095af5f42e516e7b74af7ba4781ca21b194 (diff)
tldie: use Tk::exit if gui is loaded
git-svn-id: svn://tug.org/texlive/trunk@40971 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLUtils.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLUtils.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index 52fd4c9159f..ab9b754fd31 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -3182,7 +3182,11 @@ Uses C<tlwarn> to issue a warning, then exits with exit code 1.
sub tldie {
tlwarn(@_);
- exit(1);
+ if ($::gui_mode) {
+ Tk::exit(1);
+ } else {
+ exit(1);
+ }
}
=item C<debug_hash ($label, hash))>