diff options
author | Norbert Preining <norbert@preining.info> | 2019-12-14 03:01:43 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-12-14 03:01:43 +0000 |
commit | 2c20697e8a5301b61c59d752fd1cfa7499724eec (patch) | |
tree | d2475f5c56c14a7c38d26cfd2c5b71d4e0d824e0 /systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm | |
parent | fdd3c58e8e5b37dcf9affd49326899988992c074 (diff) |
CTAN sync 201912140301
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm | 18 |
1 files changed, 4 insertions, 14 deletions
diff --git a/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm b/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm index 2ef24d8b70..4cd97fca3f 100644 --- a/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm +++ b/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm @@ -1,4 +1,4 @@ -# $Id: TLPOBJ.pm 53032 2019-12-05 19:15:11Z karl $ +# $Id: TLPOBJ.pm 53112 2019-12-12 23:43:12Z karl $ # TeXLive::TLPOBJ.pm - module for using tlpobj files # Copyright 2007-2019 Norbert Preining # This file is licensed under the GNU General Public License version 2 @@ -6,7 +6,7 @@ package TeXLive::TLPOBJ; -my $svnrev = '$Revision: 53032 $'; +my $svnrev = '$Revision: 53112 $'; my $_modulerevision = ($svnrev =~ m/: ([0-9]+) /) ? $1 : "unknown"; sub module_revision { return $_modulerevision; } @@ -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; } |