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.pl22
1 files changed, 11 insertions, 11 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl
index 2f6ae6d42d5..b7c1dba2e43 100644
--- a/Master/tlpkg/installer/install-menu-text.pl
+++ b/Master/tlpkg/installer/install-menu-text.pl
@@ -758,7 +758,7 @@ sub help_menu {
sub options_menu {
- my $b_path=obutton($vars{'instopt_path'});
+ my $b_path=obutton($vars{'instopt_adjustpath'});
my $b_doc=obutton($vars{'tlpdbopt_install_docfiles'});
my $b_src=obutton($vars{'tlpdbopt_install_srcfiles'});
my $b_fmt=obutton($vars{'tlpdbopt_create_formats'});
@@ -774,9 +774,9 @@ sub options_menu {
my $sys_man=$vars{'tlpdbopt_sys_man'};
my $sys_info=$vars{'tlpdbopt_sys_info'};
- my $t_sys_bin=($vars{'instopt_path'})? $vars{'tlpdbopt_sys_bin'}:'';
- my $t_sys_man=($vars{'instopt_path'})? $vars{'tlpdbopt_sys_man'}:'';
- my $t_sys_info=($vars{'instopt_path'})? $vars{'tlpdbopt_sys_info'}:'';
+ my $t_sys_bin=($vars{'instopt_adjustpath'})? $vars{'tlpdbopt_sys_bin'}:'';
+ my $t_sys_man=($vars{'instopt_adjustpath'})? $vars{'tlpdbopt_sys_man'}:'';
+ my $t_sys_info=($vars{'instopt_adjustpath'})? $vars{'tlpdbopt_sys_info'}:'';
my %command=(
'self' => \&options_menu,
@@ -834,15 +834,15 @@ EOF
other_options qw(R Q diskspace);
my $answer = prompt 'Enter command';
- # instopt_path
+ # instopt_adjustpath
if (unix()) {
if (("\u$answer" eq 'L') and !$vars{'instopt_portable'}) {
my $home = getenv('HOME');
$home = getenv('USERPROFILE') if (win32());
$home ||= '~';
- toggle 'instopt_path';
- if ($vars{'instopt_path'}) {
+ toggle 'instopt_adjustpath';
+ if ($vars{'instopt_adjustpath'}) {
print "New value for binary directory [$sys_bin]: ";
chomp($answer=<STDIN>);
$vars{'tlpdbopt_sys_bin'} = "$answer" if (length $answer);
@@ -871,7 +871,7 @@ EOF
my $home = getenv('HOME');
$home = getenv('USERPROFILE') if (win32());
$home ||= '~';
- toggle 'instopt_path';
+ toggle 'instopt_adjustpath';
return $command{'self'};
}
}
@@ -963,13 +963,13 @@ sub toggle_portable {
if ($vars{'instopt_portable'}) {
$vars{'instopt_portable'} = 0;
$vars{'tlpdbopt_desktop_integration'} = 0;
- $vars{'instopt_path'} = 0;
+ $vars{'instopt_adjustpath'} = 0;
$vars{'tlpdbopt_file_assocs'} = 0;
$vars{'tlpdbopt_w32_multi_user'} = 0;
} else {
$vars{'instopt_portable'} = 1;
$vars{'tlpdbopt_desktop_integration'} = 1;
- $vars{'instopt_path'} = 1;
+ $vars{'instopt_adjustpath'} = 1;
$vars{'tlpdbopt_file_assocs'} = 1;
$vars{'tlpdbopt_w32_multi_user'} = 1;
}
@@ -987,7 +987,7 @@ sub callback_save_profile {
sub main_menu {
my $this_platform=platform_desc($vars{'this_platform'});
- my $b_path=button($vars{'instopt_path'});
+ my $b_path=button($vars{'instopt_adjustpath'});
my $b_doc=button($vars{'tlpdbopt_install_docfiles'});
my $b_src=button($vars{'tlpdbopt_install_srcfiles'});
my $b_fmt=button($vars{'tlpdbopt_create_formats'});