add TLUtils::tldie function, and use it in some places in install-tl

git-svn-id: svn://tug.org/texlive/trunk@13779 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 11 insertions, 1 deletions

diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm
index e58eefc7d37..01f38381d24 100644
--- a/Master/tlpkg/TeXLive/TLUtils.pm
+++ b/Master/tlpkg/TeXLive/TLUtils.pm
@@ -125,7 +125,7 @@ BEGIN {
     &announce_execute_actions
   );
   @EXPORT = qw(setup_programs download_file process_logging_options
-               tlwarn info log debug ddebug dddebug debug_hash
+               tldie tlwarn info log debug ddebug dddebug debug_hash
                win32 xchdir xsystem run_cmd);
 }
 
@@ -2454,6 +2454,16 @@ sub tlwarn {
   }
 }
 
+=item C<tldie ($str1, $str2, ...)>
+
+Uses C<tlwarn> to issue a warning, then exits with exit code 1.
+
+=cut
+
+sub tldie {
+  tlwarn(@_);
+  exit(1);
+}
 
 =item C<debug_hash ($label, hash))>