diff options
author | Norbert Preining <preining@logic.at> | 2008-03-19 07:25:11 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-03-19 07:25:11 +0000 |
commit | dd2d602cc1cc64bbacab78f816cdc3bab5e89ffe (patch) | |
tree | bfed471f6fd8bb576b7eb3f159b670830961cd68 /Master/tlpkg/installer/install-menu-text.pl | |
parent | e8a53ef3e283b8f7e95179b03d4d117ac2960bbb (diff) |
- add TEXMFHOME setting to perltk installer
- expand ~ in TEXDIR, TEXMFSYSVAR, TEXFMLOCAL in text and perltk installer
git-svn-id: svn://tug.org/texlive/trunk@7016 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index 8dcc0ebed54..fc1c536edd2 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -471,11 +471,15 @@ EOF other_options qw (R Q); my $answer=prompt 'Enter command'; + my $home = getenv('HOME'); + $home = getenv('USERPROFILE') if (win32); + $home ||= '~'; if ("\u$answer" eq '1') { print "New value TEXDIR [$vars{'TEXDIR'}]: "; chomp($answer=<STDIN>); $vars{'TEXDIR'}="$answer" if (length $answer); $vars{'TEXDIR'}=~s@\\@/@g if (win32); + $vars{'TEXDIR'} =~ s/^~/$home/; if ($vars{'TEXDIR'}=~/^(.*)\/$texlive_release$/) { $vars{'TEXMFLOCAL'}="$1/texmf-local"; $vars{'TEXMFSYSVAR'}="$1/$texlive_release/texmf-var"; @@ -491,6 +495,7 @@ EOF chomp($answer=<STDIN>); $vars{'TEXMFLOCAL'}="$answer" if (length $answer); $vars{'TEXMFLOCAL'}=~s@\\@/@g if (win32); + $vars{'TEXMFLOCAL'} =~ s/^~/$home/; return $command{'self'}; } if ("\u$answer" eq '3') { @@ -498,6 +503,7 @@ EOF chomp($answer=<STDIN>); $vars{'TEXMFSYSVAR'}="$answer" if (length $answer); $vars{'TEXMFSYSVAR'}=~s@\\@/@g if (win32); + $vars{'TEXMFSYSVAR'} =~ s/^~/$home/; return $command{'self'}; } if ("\u$answer" eq '4') { |