diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 9cfff29955b..67dbed6a8e2 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -632,9 +632,23 @@ sub menu_set_collections_text { } sub menu_set_pathes_text { - menu_set_text($texdirtext, "$vars{'TEXDIR'}"); + if (TeXLive::TLUtils::texdir_check($vars{'TEXDIR'})) { + menu_set_text($texdirtext, "$vars{'TEXDIR'}"); + } else { + menu_set_text($texdirtext, "(default not writable - please change!)"); + } menu_set_text($texmflocaltext, "$vars{'TEXMFLOCAL'}"); - menu_set_text($texmfsysvartext, "$vars{'TEXMFSYSVAR'}"); + if (-w $vars{'TEXMFSYSVAR'}) { + menu_set_text($texmfsysvartext, "$vars{'TEXMFSYSVAR'}"); + } elsif ("$vars{'TEXMFSYSVAR'}" =~ m;^$vars{'TEXDIR'};) { + if (TeXLive::TLUtils::texdir_check($vars{'TEXDIR'})) { + menu_set_text($texmfsysvartext, "$vars{'TEXMFSYSVAR'}"); + } else { + menu_set_text($texmfsysvartext, "(please change TEXDIR first!)"); + } + } else { + menu_set_text($texmfsysvartext, "(default not writable - please change!)"); + } menu_set_text($texmfhometext, "$vars{'TEXMFHOME'}"); } |