diff options
author | Norbert Preining <preining@logic.at> | 2021-03-15 04:22:12 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2021-03-15 04:22:12 +0000 |
commit | fcc25407a0372cb2a6add2fdca6d7f60c9cd4953 (patch) | |
tree | d5bfd1de2de3c6d0c71bcd1869a704e5c9914eed /Master/tlpkg/TeXLive/TLPOBJ.pm | |
parent | 1af8ca464d8780603b0f80dc3e843b689c2107a2 (diff) |
infra: allow overriding catalogue data in tlpsrc
git-svn-id: svn://tug.org/texlive/trunk@58384 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index b35421bfb9a..ca37c284c5e 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -851,13 +851,13 @@ sub update_from_catalogue { $self->catalogue($entry->entry->{'id'}); } if (defined($entry->license)) { - $self->cataloguedata->{'license'} = $entry->license; + $self->cataloguedata->{'license'} ||= $entry->license; } if (defined($entry->version) && $entry->version ne "") { - $self->cataloguedata->{'version'} = $entry->version; + $self->cataloguedata->{'version'} ||= $entry->version; } if (defined($entry->ctan) && $entry->ctan ne "") { - $self->cataloguedata->{'ctan'} = $entry->ctan; + $self->cataloguedata->{'ctan'} ||= $entry->ctan; } # TODO TODO TODO # we should rewrite the also fields to TeX Live package names ... @@ -865,17 +865,17 @@ sub update_from_catalogue { # warning, we expect that cataloguedata entries are strings, # so stringify these lists if (@{$entry->also}) { - $self->cataloguedata->{'also'} = "@{$entry->also}"; + $self->cataloguedata->{'also'} ||= "@{$entry->also}"; } if (@{$entry->alias}) { - $self->cataloguedata->{'alias'} = "@{$entry->alias}"; + $self->cataloguedata->{'alias'} ||= "@{$entry->alias}"; } if (@{$entry->topics}) { - $self->cataloguedata->{'topics'} = "@{$entry->topics}"; + $self->cataloguedata->{'topics'} ||= "@{$entry->topics}"; } if (%{$entry->contact}) { for my $k (keys %{$entry->contact}) { - $self->cataloguedata->{"contact-$k"} = $entry->contact->{$k}; + $self->cataloguedata->{"contact-$k"} ||= $entry->contact->{$k}; } } #if (defined($entry->texlive)) { |