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