From e29746a36f5615173b13d7deaf8ce0023e999232 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Sun, 12 May 2019 23:29:40 +0000 Subject: support tlmgr repository status, format will change, docs missing git-svn-id: svn://tug.org/texlive/trunk@51110 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPDB.pm | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'Master/tlpkg/TeXLive/TLPDB.pm') diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm index 4b41110bbdb..902f8e7586f 100644 --- a/Master/tlpkg/TeXLive/TLPDB.pm +++ b/Master/tlpkg/TeXLive/TLPDB.pm @@ -79,6 +79,7 @@ C -- A database of TeX Live Packages $tlpdb->is_virtual; $tlpdb->virtual_add_tlpdb($tlpdb, $tag); $tlpdb->virtual_remove_tlpdb($tag); + $tlpdb->virtual_get_tags(); $tlpdb->virtual_get_tlpdb($tag); $tlpdb->virtual_get_package($pkg, $tag); $tlpdb->candidates($pkg); @@ -2561,6 +2562,11 @@ sub make_virtual { return 1; } +sub virtual_get_tags { + my $self = shift; + return keys %{$self->{'tlpdbs'}}; +} + sub virtual_get_tlpdb { my ($self, $tag) = @_; if (!$self->is_virtual) { -- cgit v1.2.3