diff options
| author | Norbert Preining <preining@logic.at> | 2009-06-23 06:18:59 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2009-06-23 06:18:59 +0000 |
| commit | 757dd2d4888fbb866f6075bd1039c436c561c392 (patch) | |
| tree | afbb194962873af74f2fb294c70b517f78958e4e | |
| parent | 94fa372bae655d688a8044ed0884fa79dc882ad1 (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.pm | 6 |
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"); |