summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl18
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'}");
}