diff options
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))> |