diff options
-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)) { |