diff options
author | Norbert Preining <preining@logic.at> | 2017-04-16 02:14:25 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2017-04-16 02:14:25 +0000 |
commit | 3515a7a2754bd5ce7a996720ccda5a0f92ade23a (patch) | |
tree | bb95814e6d7634e3c5e324fc93015932b2ba95d8 /Master/tlpkg/installer/install-menu-text.pl | |
parent | eb8037cfc3f3c127ac91056ac602cff96610bb54 (diff) |
rename instopt_path to instopt_adjustpath
git-svn-id: svn://tug.org/texlive/trunk@43833 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-text.pl | 22 |
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'}); |