diff options
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-text.pl | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index edb68277872..521fa0af8cc 100644 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -12,6 +12,7 @@ use vars qw(@::end_install_hook $::opt_no_cls); our %vars; +our $opt_in_place; our $tlpdb; our @media_available; our $media; @@ -508,7 +509,7 @@ sub directories_menu } my $texmfdir = $vars{'TEXDIR'} . ($vars{'TEXDIR'} =~ /\/$/ ? 'texmf-dist' : '/texmf-dist'); - if (!$vars{'in_place'}) { + if (!$opt_in_place) { print <<"EOF"; <1> TEXDIR: $vars{'TEXDIR'} support tree: $texmfdir @@ -542,7 +543,7 @@ EOF other_options qw(R Q); my $answer = prompt 'Enter command'; - if ("\u$answer" eq '1' and !$vars{'in_place'}) { + if ("\u$answer" eq '1' and !$opt_in_place) { print "New value for TEXDIR [$vars{'TEXDIR'}]: "; $answer = &input_dirname (); $vars{'TEXDIR'} = $answer if $answer ne ""; @@ -792,10 +793,10 @@ sub options_menu { <F> create format files: $b_fmt EOF ; - if ($vars{'doc_splitting_supported'} and !$vars{'in_place'}) { + if ($vars{'doc_splitting_supported'} and !$opt_in_place) { print " <D> install font/macro doc tree: $b_doc\n"; } - if ($vars{'src_splitting_supported'} and !$vars{'in_place'}) { + if ($vars{'src_splitting_supported'} and !$opt_in_place) { print " <S> install font/macro source tree: $b_src\n"; } if (!$vars{'portable'}) { @@ -922,11 +923,11 @@ EOF toggle 'option_write18_restricted'; return $command{'self'}; - } elsif ("\u$answer" eq 'S' and !$vars{'in_place'}) { + } elsif ("\u$answer" eq 'S' and !$opt_in_place) { toggle 'option_src'; return $command{'self'}; - } elsif ("\u$answer" eq 'D' and !$vars{'in_place'}) { + } elsif ("\u$answer" eq 'D' and !$opt_in_place) { toggle 'option_doc'; return $command{'self'}; @@ -934,7 +935,7 @@ EOF return $command{"\u$answer"}; } elsif (("\u$answer" eq 'W') && ($::opt_all_options || win32()) && - !$vars{'in_place'} ) { + !$opt_in_place ) { toggle 'collection-texworks'; return $command{'self'}; @@ -1026,7 +1027,7 @@ sub main_menu { 'V' => \&toggle_portable, 'P' => \&callback_save_profile, ); - if (!$vars{'in_place'}) { + if (!$opt_in_place) { $command{'B'} = \&binary_menu if unix(); $command{'C'} = \&collection_menu; $command{'S'} = \&scheme_menu; @@ -1043,7 +1044,7 @@ sub main_menu { $warn_nobin EOF - if (!$vars{'in_place'}) { + if (!$opt_in_place) { print <<"EOF"; <B> set binary platforms: $vars{'n_systems_selected'} out of $vars{'n_systems_available'} @@ -1093,7 +1094,7 @@ print <<"EOF"; $b_fmt create all format files EOF - if (!$vars{'in_place'}) { + if (!$opt_in_place) { if ($vars{'doc_splitting_supported'}) { print " $b_doc install macro/font doc tree\n"; } |