texlive[47213] Master/texmf-dist/scripts/texlive/tlmgr.pl: more fixes

commits+preining at tug.org commits+preining at tug.org
Sun Apr 1 02:49:33 CEST 2018


Revision: 47213
          http://tug.org/svn/texlive?view=revision&revision=47213
Author:   preining
Date:     2018-04-01 02:49:33 +0200 (Sun, 01 Apr 2018)
Log Message:
-----------
more fixes for new --verify-repo setting

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	2018-04-01 00:49:21 UTC (rev 47212)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2018-04-01 00:49:33 UTC (rev 47213)
@@ -28,6 +28,7 @@
 our $pinfile;
 our $action; # for the pod2usage -sections call
 our %opts;
+our $allowed_verify_args_regex = qr/^(none|main|all)$/i;
 
 END {
   if ($opts{"pause"}) {
@@ -480,17 +481,21 @@
     $action = "remove";
   }
 
+  #
+  # check for correctness of verify-repo argument
+  if (defined($opts{"verify-repo"}) &&
+      ($opts{"verify-repo"} !~ m/$allowed_verify_args_regex/)) {
+    tldie("$prg: unknown value for --verify-repo: $opts{'verify-repo'}\n");
+  }
   # convert command line crypto options
   $opts{"verify-repo"} = convert_crypto_options($opts{"verify-downloads"}, $opts{"require-verification"}, $opts{"verify-repo"});
+  if (defined($opts{"verify-downloads"}) || defined($opts{"require-verification"})) {
+    tlwarn("$prg: please use -verify-repo options instead of verify-downloads/require-verification\n" .
+           "$prg: adjusting --verify-repo=$opts{'verify-repo'}\n");
+  }
   delete $opts{"require-verification"};
   delete $opts{"verify-downloads"};
 
-  #
-  # check for correctness of verify-repo argument
-  if (defined($opts{"verify-repo"}) &&
-      ($opts{"verify-repo"} !~ m/^(none|main|all)$/)) {
-    tldie("Unknown value for --verify-repo; $opts{verify-repo}\n");
-  }
 
   # now $action should be part of %actionoptions, otherwise this is
   # an error
@@ -6989,7 +6994,6 @@
   # first set default values
   $config{"gui-expertmode"} = 1;
   $config{"auto-remove"} = 1;
-  $config{"require-verification"} = 0;
   $config{"persistent-downloads"} = 1;
   $config{"verify-repo"} = "main";
   # do NOT set this here, we distinguish between explicitly set in the config file
@@ -7087,7 +7091,7 @@
       }
 
     } elsif ($key eq "verify-repo") {
-      if ($val =~ m/^(none|main|all)$/) {
+      if ($val =~ m/$allowed_verify_args_regex/) {
         $config{"verify-repo"} = $val;
       } else {
         tlwarn("$prg: $fn: Unknown value for verify-repo: $val\n");
@@ -7150,9 +7154,12 @@
   if ((defined($verify_downloads) || defined($require_verification)) &&
       defined($verify_repo)) {
     # we cannot have all three, warn and bail out
-    tldie("The options verify-downloads and require-verification have been\n" .
-          "superseeded by verify-repo, please use only the later on!\n");
+    tldie("$prg: The options verify-downloads and require-verification have been\n" .
+          "$prg: superseeded by verify-repo, please use only the later on!\n");
   }
+  # return immediately if verify_repo is already set
+  return($verify_repo) if (defined($verify_repo));
+
   if (defined($verify_downloads)) {
     if ($verify_downloads) {
       # explicit --verify-downloads was given



More information about the tex-live-commits mailing list