From 757dd2d4888fbb866f6075bd1039c436c561c392 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 23 Jun 2009 06:18:59 +0000 Subject: allow arbitrary categories in TLPOBJ thus in tlmgr etc, but warn if it does not match the given regexp from TLConfig. TLPSRC still dies if an unknown category is met, so we are sure that TLConfig and created tlpdbs are consistent. git-svn-id: svn://tug.org/texlive/trunk@13908 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'Master') diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 016518bb446..441d24006e8 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -164,9 +164,13 @@ sub from_fh { } $lastcmd = "longdesc"; next; - } elsif ($line =~ /^category\s+$CategoriesRegexp/o) { + } elsif ($line =~ /^category\s+(.*)\s*/o) { $self->{'category'} = "$1"; $lastcmd = "category"; + if ($self->{'category'} !~ /^$CategoriesRegexp/o) { + tlwarn("Unknown category " . $self->{'category'} . " for package " + . $self->name . " found.\nPlease update texlive.infra.\n"); + } next; } elsif ($line =~ /^relocated\s+([01])\s*/o) { $self->relocated("$1"); -- cgit v1.2.3