diff options
| author | Karl Berry <karl@freefriends.org> | 2009-09-15 01:00:36 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2009-09-15 01:00:36 +0000 |
| commit | 7c41057952b7b2c66f0c7a8416bd263b111d2ccb (patch) | |
| tree | a8601b939f043cd9feb4f3e90cc0b972af69718a | |
| parent | 837b282273b9bf339577c772249ed79fe64f43f5 (diff) | |
(update_from_catalogue): avoid writing empty catalogue-ctan lines.
git-svn-id: svn://tug.org/texlive/trunk@15289 c570f23f-e606-0410-a88d-b1316a301751
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 5296ed49d82..030a0242e57 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -733,7 +733,8 @@ corresponding entry in C<$tlc->entries>. =cut -sub update_from_catalogue { +sub update_from_catalogue +{ my ($self, $tlc) = @_; my $tlcname = $self->name; if (defined($self->catalogue)) { @@ -759,10 +760,10 @@ sub update_from_catalogue { if (defined($entry->license)) { $self->cataloguedata->{'license'} = $entry->license; } - if (defined($entry->version) && ($entry->version ne "")) { + if (defined($entry->version) && $entry->version ne "") { $self->cataloguedata->{'version'} = $entry->version; } - if (defined($entry->ctan)) { + if (defined($entry->ctan) && $entry->ctan ne "") { $self->cataloguedata->{'ctan'} = $entry->ctan; } #if (defined($entry->texlive)) { |