diff options
author | Karl Berry <karl@freefriends.org> | 2009-09-13 00:27:27 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2009-09-13 00:27:27 +0000 |
commit | 967482f6023c48d6dbc53d1b1d6e7dd0fb394f47 (patch) | |
tree | 6c74edf100d33e8ca12e877bd15e10d57dbea6b7 /Master/tlpkg/TeXLive | |
parent | 3f969f71304ba2f300284d9dbdb1859d1ea8aa4d (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')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 12 |
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)) { |