texlive[44125] Master/texmf-dist/scripts/texlive/tlmgr.pl: fix tlmgr

[commits+preining at tug.org]

Revision: 44125
          http://tug.org/svn/texlive?view=revision&revision=44125
Author:   preining
Date:     2017-04-30 11:07:49 +0200 (Sun, 30 Apr 2017)
Log Message:
-----------
fix tlmgr shell error

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-04-30 09:05:46 UTC (rev 44124)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-04-30 09:07:49 UTC (rev 44125)
@@ -6632,7 +6632,7 @@
     chomp($ans);
     if (@options) {
       $ans--;
-      if ($ans >= 0 && $ans < $#options) {
+      if ($ans >= 0 && $ans <= $#options) {
         $ans = $options[$ans];
         return($ans);
       } else {
@@ -6697,7 +6697,7 @@
         }
         # deal with Ctrl-D
         if (!defined($val)) {
-          print('ERROR Missing value for set.\n');
+          print("ERROR Missing value for set.\n");
           next;
         }
       }