summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-12-12 23:43:12 +0000
committerKarl Berry <karl@freefriends.org>2019-12-12 23:43:12 +0000
commit056bd3b80423f8a31b7bd2d3b82782831f5fa5eb (patch)
tree827c9399412e1e79870ecbf82d700454085a3631 /Master/tlpkg/TeXLive/TLPOBJ.pm
parent7a9bf2feeb7d7b3a79b7003757fc7484ee980285 (diff)
* TLPOBJ.pm (writeout): do not write catalogue-date.
(update_from_catalogue): do not insert {date} into cataloguedata hash. * tl-update-tlpdb (equal_hashes): ignore differences in catalogue-date. The idea is that we will no longer have catalogue-date in the development tlpdb; updated packages in tlnet will thus have it omitted. We'll remove it entirely from tlnet packages at some point in the future, but no need to rush. This is all because the date value is not meaningful; it's the time of the last commit to the Catalogue subversion repository, which is often entirely unrelated to an update to the package itself. Since we will no longer recreate all packages for each year's release, we have to sync the Catalogue information at other times, so omitting useless updates will be all to the good. git-svn-id: svn://tug.org/texlive/trunk@53112 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm14
1 files changed, 2 insertions, 12 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 34073b391b3..b5eafa69633 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -370,6 +370,7 @@ sub writeout {
}
# writeout all the catalogue keys
foreach my $k (sort keys %{$self->cataloguedata}) {
+ next if $k eq "date";
print $fd "catalogue-$k ", $self->cataloguedata->{$k}, "\n";
}
}
@@ -845,21 +846,10 @@ sub update_from_catalogue {
$tlcname = lc($tlcname);
if (defined($tlc->entries->{$tlcname})) {
my $entry = $tlc->entries->{$tlcname};
- # Record the id of the catalogue entry if it's found due to
- # quest4texlive.
+ # Record the id of the catalogue entry if it's found.
if ($entry->entry->{'id'} ne $tlcname) {
$self->catalogue($entry->entry->{'id'});
}
- if (defined($entry->entry->{'date'})) {
- my $foo = $entry->entry->{'date'};
- $foo =~ s/^.Date: //;
- # trying to extract the interesting part of a subversion date
- # keyword expansion here, e.g.,
- # <dollar>Date: 2007-08-15 19:43:35 +0100 (Wed, 27 Nov 2019) <dollar>
- # ->2007-08-15 19:43:35 +0100
- $foo =~ s/ \(.*\)( *\$ *)$//; # maybe nothing after parens
- $self->cataloguedata->{'date'} = $foo;
- }
if (defined($entry->license)) {
$self->cataloguedata->{'license'} = $entry->license;
}