From 056bd3b80423f8a31b7bd2d3b82782831f5fa5eb Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 12 Dec 2019 23:43:12 +0000 Subject: * 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 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 14 ++------------ 1 file changed, 2 insertions(+), 12 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm') 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., - # Date: 2007-08-15 19:43:35 +0100 (Wed, 27 Nov 2019) - # ->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; } -- cgit v1.2.3