summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-09-13 00:27:27 +0000
committerKarl Berry <karl@freefriends.org>2009-09-13 00:27:27 +0000
commit967482f6023c48d6dbc53d1b1d6e7dd0fb394f47 (patch)
tree6c74edf100d33e8ca12e877bd15e10d57dbea6b7 /Master/tlpkg/TeXLive/TLPOBJ.pm
parent3f969f71304ba2f300284d9dbdb1859d1ea8aa4d (diff)
allow whitespace after $Date$ string.
git-svn-id: svn://tug.org/texlive/trunk@15252 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm12
1 files changed, 10 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm
index 39d692e2c20..1d438f9d203 100644
--- a/Master/tlpkg/TeXLive/TLPOBJ.pm
+++ b/Master/tlpkg/TeXLive/TLPOBJ.pm
@@ -57,7 +57,6 @@ sub new {
}
-
sub copy {
my $self = shift;
my $bla = {};
@@ -725,6 +724,15 @@ sub total_size {
}
+=pod
+
+=item C<update_from_catalogue($tlc)>
+
+Update the current TLPOBJ object with the information from the
+corresponding entry in C<$tlc->entries>.
+
+=cut
+
sub update_from_catalogue {
my ($self, $tlc) = @_;
my $tlcname = $self->name;
@@ -741,7 +749,7 @@ sub update_from_catalogue {
if (defined($entry->entry->{'date'})) {
my $foo = $entry->entry->{'date'};
$foo =~ s/^.Date: //;
- $foo =~ s/ \(.*\) \$$//;
+ $foo =~ s/ \(.*\) \$ *$//;
$self->cataloguedata->{'date'} = $foo;
}
if (defined($entry->license)) {