summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--systems/texlive/tlnet/tlpkg/TeXLive/TLPOBJ.pm18
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;
}