texlive[44145] Master/texmf-dist/scripts/texlive/tlmgr.pl: shell set

[commits+karl at tug.org]

Revision: 44145
          http://tug.org/svn/texlive?view=revision&revision=44145
Author:   karl
Date:     2017-05-02 00:41:15 +0200 (Tue, 02 May 2017)
Log Message:
-----------
shell set must be case-sensitive since we set %opts.

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-05-01 22:39:53 UTC (rev 44144)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-05-01 22:41:15 UTC (rev 44145)
@@ -5945,9 +5945,9 @@
           }
         }
         print "OK\n";
-      } elsif ($key =~ m/^(debug-translation|machine-readable|no-execute-actions|require-verification|verify-downloads)$/i) {
+      } elsif ($key =~ m/^(debug-translation|machine-readable|no-execute-actions|require-verification|verify-downloads)$/) {
         if ($cmd eq "set") {
-          $opts{$key} = ($val eq "1" ? 1 : 0); ### THIS DOES NOT WORK??? TODO TODO
+          $opts{$key} = ($val eq "1" ? 1 : 0);
           # special cases
           $::debug_translation = $opts{"debug-translation"};
           $::machinereadable = $opts{"machine-readable"};