summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl')
-rw-r--r--systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl17
1 files changed, 5 insertions, 12 deletions
diff --git a/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl b/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl
index 7a602d3835..e60886b84e 100644
--- a/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl
+++ b/systems/texlive/tlnet/tlpkg/installer/install-menu-text.pl
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-# $Id: install-menu-text.pl 63068 2022-04-18 05:58:07Z preining $
+# $Id: install-menu-text.pl 63571 2022-06-13 01:11:19Z karl $
#
# Copyright 2007-2022 Norbert Preining, Karl Berry
# Copyright 2007-2008 Reinhard Kotucha
@@ -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/^~/) {
@@ -723,7 +720,7 @@ sub help_menu {
clear_screen;
- my @text=html2text "$installer_help";
+ my @text=html2text ($installer_help);
my $lines=(@text);
my $overlap=3;
my $lps=32; # lines per screen - overlap
@@ -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'};
}