summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-text.pl13
1 files changed, 3 insertions, 10 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl
index a47eb11e467..f91cfd6f4cd 100644
--- a/Master/tlpkg/installer/install-menu-text.pl
+++ b/Master/tlpkg/installer/install-menu-text.pl
@@ -623,10 +623,7 @@ sub input_dirname
$answer =~ s!\\!/!g if win32(); # switch to forward slashes
if (!$noexpansion) {
- my $home = getenv('HOME');
- $home = getenv('USERPROFILE') if win32();
- $home ||= '~';
- $answer =~ s/^~/$home/; # $home expansion
+ $answer = $TeXLive::TLUtils::expand_tilde($answer);
}
if ($answer !~ m/^~/) {
@@ -844,9 +841,7 @@ EOF
if (unix()) {
if (("\u$answer" eq 'L') and !$vars{'instopt_portable'}) {
- my $home = getenv('HOME');
- $home = getenv('USERPROFILE') if (win32());
- $home ||= '~';
+ my $home = TeXLive::TLUtils::get_user_home();
toggle 'instopt_adjustpath';
if ($vars{'instopt_adjustpath'}) {
print "New value for binary directory [$sys_bin]: ";
@@ -874,9 +869,7 @@ EOF
}
} else {
if (("\u$answer" eq 'L') and !$vars{'instopt_portable'}) {
- my $home = getenv('HOME');
- $home = getenv('USERPROFILE') if (win32());
- $home ||= '~';
+ my $home = TeXLive::TLUtils::get_user_home;
toggle 'instopt_adjustpath';
return $command{'self'};
}