From 7669f918608c9f27bcce138163da6bf29a033a6a Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 27 Feb 2023 21:44:33 +0000 Subject: run mtxrun --generate and context --luatex --generate as post-install actions, only if the luametatex binary is operational git-svn-id: svn://tug.org/texlive/trunk@66236 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLUtils.pm | 31 +++++++++++++++++++++++++------ 1 file changed, 25 insertions(+), 6 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLUtils.pm') diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index a03ca61ced6..2585c4513ee 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -106,12 +106,6 @@ C - TeX Live infrastructure miscellany TeXLive::TLUtils::member($item, @list); TeXLive::TLUtils::merge_into(\%to, \%from); TeXLive::TLUtils::texdir_check($texdir); - TeXLive::TLUtils::quotify_path_with_spaces($path); - TeXLive::TLUtils::conv_to_w32_path($path); - TeXLive::TLUtils::native_slashify($internal_path); - TeXLive::TLUtils::forward_slashify($path_from_user); - TeXLive::TLUtils::give_ctan_mirror(); - TeXLive::TLUtils::give_ctan_mirror_base(); TeXLive::TLUtils::compare_tlpobjs($tlpA, $tlpB); TeXLive::TLUtils::compare_tlpdbs($tlpdbA, $tlpdbB); TeXLive::TLUtils::report_tlpdb_differences(\%ret); @@ -121,6 +115,18 @@ C - TeX Live infrastructure miscellany TeXLive::TLUtils::prepend_own_path(); TeXLive::TLUtils::repository_to_array($str); +=head2 Windows and paths + + TeXLive::TLUtils::quotify_path_with_spaces($path); + TeXLive::TLUtils::conv_to_w32_path($path); + TeXLive::TLUtils::native_slashify($internal_path); + TeXLive::TLUtils::forward_slashify($path_from_user); + +=head2 CTAN + + TeXLive::TLUtils::give_ctan_mirror(); + TeXLive::TLUtils::give_ctan_mirror_base(); + =head2 JSON TeXLive::TLUtils::encode_json($ref); @@ -232,6 +238,7 @@ BEGIN { &give_ctan_mirror_base &create_mirror_list &extract_mirror_entry + &system_ok &wsystem &xsystem &run_cmd @@ -704,6 +711,18 @@ sub xchdir { ddebug("xchdir($dir) ok\n"); } +=item C + +Run C and return true if return status was zero, false +if status was nonzero. Throw away stdout and stderr. + +=cut + +sub system_ok { + my ($cmdline) = @_; + `$cmdline >/dev/null 2>&1`; + return $? == 0; +} =item C -- cgit v1.2.3