From 58f4676b08059aa9e7d04becc006494c0ad0386e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 23 Jul 2017 13:31:08 +0000 Subject: path add: do proper return code handling git-svn-id: svn://tug.org/texlive/trunk@44872 c570f23f-e606-0410-a88d-b1316a301751 --- Master/install-tl | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'Master/install-tl') diff --git a/Master/install-tl b/Master/install-tl index b0941dcbfed..7ce895d60d6 100755 --- a/Master/install-tl +++ b/Master/install-tl @@ -1113,7 +1113,7 @@ operations might be disturbed.\n\n"; # on Unix set symlinks # for portable, this option should be unset # it should not be necessary to test separately for portable - do_path_adjustments() if + $errcount += do_path_adjustments() if $vars{'instopt_adjustpath'} and $vars{tlpdbopt_desktop_integration} != 2; # now do the system integration: @@ -1199,17 +1199,21 @@ sub rewrite_tlaunch_ini { } # rewrite_tlaunch_ini sub do_path_adjustments { + my $ret = 0; info ("running path adjustment actions\n"); if (win32()) { TeXLive::TLUtils::w32_add_to_path($vars{'TEXDIR'}.'/bin/win32', $vars{'tlpdbopt_w32_multi_user'}); broadcast_env(); } else { - TeXLive::TLUtils::add_symlinks($vars{'TEXDIR'}, $vars{'this_platform'}, - $vars{'tlpdbopt_sys_bin'}, $vars{'tlpdbopt_sys_man'}, - $vars{'tlpdbopt_sys_info'}); + if (!TeXLive::TLUtils::add_symlinks($vars{'TEXDIR'}, $vars{'this_platform'}, + $vars{'tlpdbopt_sys_bin'}, $vars{'tlpdbopt_sys_man'}, + $vars{'tlpdbopt_sys_info'})) { + $ret = 1; + } } info ("finished with path adjustment actions\n"); + return $ret; } # do_path_adjustments -- cgit v1.2.3