texlive[57583] Master/tlpkg/installer/install-menu-text.pl:

[commits+karl at tug.org]

Revision: 57583
          http://tug.org/svn/texlive?view=revision&revision=57583
Author:   karl
Date:     2021-01-31 23:46:51 +0100 (Sun, 31 Jan 2021)
Log Message:
-----------
(other_options) <opts>: no more H(elp), hasn't
worked for years.
(main_menu): likewise, and change call. Print out
the doc url in the beginning header.

(run_menu_text): wording of using existing TL;
check for undefined $yn (e.g., install-tl </dev/null).

Modified Paths:
--------------
    trunk/Master/tlpkg/installer/install-menu-text.pl

Modified: trunk/Master/tlpkg/installer/install-menu-text.pl
===================================================================
--- trunk/Master/tlpkg/installer/install-menu-text.pl	2021-01-31 21:47:11 UTC (rev 57582)
+++ trunk/Master/tlpkg/installer/install-menu-text.pl	2021-01-31 22:46:51 UTC (rev 57583)
@@ -96,7 +96,6 @@
   my %opts=(
     '-' => 'deselect all',
     '+' => 'select all',
-    'H' => 'help',
     'R' => 'return to main menu',
     'P' => 'save installation profile to \'texlive.profile\' and exit',
     'Q' => 'quit'
@@ -253,14 +252,14 @@
     my $f = shift @args;
     if ($f =~ m/^-old-installation-found=(.*)$/) {
       my $dn = $1;
-      print "\nAn old installation of TeX Live has been found in $dn\n";
+      print "\nAn existing installation of TeX Live has been found in $dn\n";
       print "
-If you want the selection of schemes/collections and various options being
-taken over press `y', otherwise anything else.
+If you want its selection of schemes/collections and various options
+to be used, press `y', otherwise anything else.
 
 Import settings from previous TeX Live installation: (y/n): ";
       chomp(my $yn = <STDIN>);
-      if ($yn =~ m/^y$/i) {
+      if (defined $yn && $yn =~ m/^y$/i) {
         import_settings_from_old_tlpdb($dn);
       }
     }
@@ -710,6 +709,9 @@
 }
 
 
+# dumping the html doc to stdout does not seem very helpful,
+# and did not work for years with no one noticing, so this
+# function is no longer used.
 sub help_menu {
   my %command=(
     'self' => \&help_menu,
@@ -1023,7 +1025,6 @@
   my %command = (
     'self' => \&main_menu,
     'D' => \&directories_menu,
-    'H' => \&help_menu,
     'I' => \&do_install,
     'O' => \&options_menu,
     'Q' => \&quit,
@@ -1042,6 +1043,7 @@
 
 ======>   Letters/digits in <angle brackets> indicate   <=======
 ======>   menu items for actions or customizations      <=======
+= help>   https://tug.org/texlive/doc/install-tl.html   <=======
 
  Detected platform: $this_platform
  $warn_nobin
@@ -1130,7 +1132,7 @@
     print "\n <V> set up for portable installation\n";
   }
 
-  other_options qw(I P H Q);
+  other_options qw(I P Q);
   my $answer = prompt 'Enter command';
 
   if (defined $command{"\u$answer"}) {