diff options
| author | Norbert Preining <preining@logic.at> | 2016-05-09 03:11:03 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2016-05-09 03:11:03 +0000 |
| commit | 94d481173b9793dbb8f68c7d28ecbe0fb592882b (patch) | |
| tree | 939e439142ca67e45aee794d6ad98474a5bb31a9 /Master/tlpkg | |
| parent | f4a82095af5f42e516e7b74af7ba4781ca21b194 (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')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 6 |
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))> |