From 7c41057952b7b2c66f0c7a8416bd263b111d2ccb Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Tue, 15 Sep 2009 01:00:36 +0000 Subject: (update_from_catalogue): avoid writing empty catalogue-ctan lines. git-svn-id: svn://tug.org/texlive/trunk@15289 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 7 ++++--- 1 file 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)) { -- cgit v1.2.3