diff options
author | Norbert Preining <preining@logic.at> | 2008-03-21 07:17:08 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-03-21 07:17:08 +0000 |
commit | 8e87273a1960b9a6e95e3bb27ab8ddf98be6e621 (patch) | |
tree | 3890b4f2b2e1a36a18f4f436ce4f2fbef60e4895 /Master/tlpkg/installer/install-menu-perltk.pl | |
parent | e5e42ab9d2fe5584924e6db8d00d8d7d2443c657 (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.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'}"); } |