summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
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;
}