summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2016-04-27 10:25:08 +0000
committerNorbert Preining <preining@logic.at>2016-04-27 10:25:08 +0000
commit8bfa49f1692d512e12835495a0d0547b652d21b4 (patch)
tree2f84b3b19939aecaf6a4bd80181bba7a89cc62f8 /Master
parentaa8ba30487d2df408ec30f8014d058e30ebb119d (diff)
record verification status of manually verified tlpdb
git-svn-id: svn://tug.org/texlive/trunk@40782 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl2
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm5
2 files changed, 7 insertions, 0 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl
index ef190a6d7d3..365bbc0906e 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgr.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl
@@ -5962,6 +5962,8 @@ END_NO_INTERNET
$remotetlpdb = TeXLive::TLPDB->new(root => $location,
tlpdbfile => $loc_copy_of_remote_tlpdb);
$local_copy_tlpdb_used = 1;
+ # we did verify this tlpdb, make sure that is recorded
+ $remotetlpdb->is_verified(1);
} else {
tldie("$0: unexpected return value from verify_checksum: $ret\n");
}
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 83f618e8f00..fe1196aaf5c 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -1153,6 +1153,11 @@ the cryptographic signature.
sub is_verified {
my $self = shift;
+ if ($self->is_virtual) {
+ tlwarn("TLPDB: cannot set/edit verified property of a virtual tlpdb\n");
+ return 0;
+ }
+ if (@_) { $self->{'verified'} = shift }
return $self->{'verified'};
}