summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPOBJ.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2009-09-15 01:00:36 +0000
committerKarl Berry <karl@freefriends.org>2009-09-15 01:00:36 +0000
commit7c41057952b7b2c66f0c7a8416bd263b111d2ccb (patch)
treea8601b939f043cd9feb4f3e90cc0b972af69718a /Master/tlpkg/TeXLive/TLPOBJ.pm
parent837b282273b9bf339577c772249ed79fe64f43f5 (diff)
(update_from_catalogue): avoid writing empty catalogue-ctan lines.
git-svn-id: svn://tug.org/texlive/trunk@15289 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm7
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)) {