diff options
| -rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 31 |
1 files changed, 21 insertions, 10 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index 3c3719096d1..8dcc0ebed54 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -452,16 +452,21 @@ sub directories_menu { menu_head "Current directories setup:"; print <<"EOF"; - <1> TEXDIR: $vars{'TEXDIR'} - support tree: $vars{'TEXDIR'}/texmf + <1> TEXDIR: $vars{'TEXDIR'} + support tree: $vars{'TEXDIR'}/texmf - <2> TEXMFLOCAL: $vars{'TEXMFLOCAL'} - <3> TEXMFSYSVAR: $vars{'TEXMFSYSVAR'} + <2> TEXMFLOCAL: $vars{'TEXMFLOCAL'} + <3> TEXMFSYSVAR: $vars{'TEXMFSYSVAR'} + + <4> TEXMFHOME: $vars{'TEXMFHOME'} - <4> TEXMFHOME: $vars{'TEXMFHOME'} - (~ will be expanded to \$HOME/\$USERPROFILE) EOF ; + if (win32) { + print " Note: ~ will expand to %USERPROFILE%\n"; + } else { + print " Note: ~ will expand to \$HOME (or to %USERPROFILE% on Windows)\n"; + } other_options qw (R Q); my $answer=prompt 'Enter command'; @@ -770,10 +775,13 @@ sub main_menu { 'L' => \&language_menu, 'D' => \&directories_menu, 'S' => \&scheme_menu, - 'B' => \&binary_menu, 'Q' => \&quit ); + if (unix) { + $command{'B'}=\&binary_menu; + } + clear_screen; print <<"EOF"; @@ -794,9 +802,12 @@ sub main_menu { $vars{'n_collections_selected'} collections out of $vars{'n_collections_available'}, disk space required: $vars{'total_size'} MB <D> directories: - TEXDIR (The main TeX directory) : $vars{'TEXDIR'} - TEXMFLOCAL (Directory for local styles etc): $vars{'TEXMFLOCAL'} - TEXMFSYSVAR (Directory for local config) : $vars{'TEXMFSYSVAR'} + TEXDIR (The main TeX directory): + $vars{'TEXDIR'} + TEXMFLOCAL (Directory for local styles etc): + $vars{'TEXMFLOCAL'} + TEXMFSYSVAR (Directory for local config): + $vars{'TEXMFSYSVAR'} <O> options: EOF |