summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2009-06-23 06:18:59 +0000
committerNorbert Preining <preining@logic.at>2009-06-23 06:18:59 +0000
commit757dd2d4888fbb866f6075bd1039c436c561c392 (patch)
treeafbb194962873af74f2fb294c70b517f78958e4e
parent94fa372bae655d688a8044ed0884fa79dc882ad1 (diff)
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
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm6
1 files changed, 5 insertions, 1 deletions
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");