summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
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 /Master/tlpkg/TeXLive/TLPOBJ.pm
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
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-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");