diff options
| -rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 2 | ||||
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPDB.pm | 5 |
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'}; } |