From 8bfa49f1692d512e12835495a0d0547b652d21b4 Mon Sep 17 00:00:00 2001
From: Norbert Preining <preining@logic.at>
Date: Wed, 27 Apr 2016 10:25:08 +0000
Subject: record verification status of manually verified tlpdb

git-svn-id: svn://tug.org/texlive/trunk@40782 c570f23f-e606-0410-a88d-b1316a301751
---
 Master/texmf-dist/scripts/texlive/tlmgr.pl | 2 ++
 Master/tlpkg/TeXLive/TLPDB.pm              | 5 +++++
 2 files changed, 7 insertions(+)

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'};
 }
 
-- 
cgit v1.2.3