summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-03-21 07:17:08 +0000
committerNorbert Preining <preining@logic.at>2008-03-21 07:17:08 +0000
commit8e87273a1960b9a6e95e3bb27ab8ddf98be6e621 (patch)
tree3890b4f2b2e1a36a18f4f436ce4f2fbef60e4895 /Master/tlpkg/installer/install-menu-perltk.pl
parente5e42ab9d2fe5584924e6db8d00d8d7d2443c657 (diff)
better fallback behaviour, support in perltk installer
git-svn-id: svn://tug.org/texlive/trunk@7053 c570f23f-e606-0410-a88d-b1316a301751
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'}");
}