From edb1998f68e855a856c42834132e0bfb10842b31 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 1 Dec 2008 18:36:42 +0000 Subject: fix overwritten long- and shortdesc git-svn-id: svn://tug.org/texlive/trunk@11497 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg') diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 0cfec0e4a32..0a087d22d00 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -604,10 +604,10 @@ sub update_from_catalogue { # $self->cataloguedata->{'miktex'} = $entry->miktex; #} if (defined($entry->caption)) { - $self->{'shortdesc'} = $entry->caption; + $self->{'shortdesc'} = $entry->caption unless $self->{'shortdesc'}; } if (defined($entry->description)) { - $self->{'longdesc'} = $entry->description; + $self->{'longdesc'} = $entry->description unless $self->{'longdesc'}; } # # we need to do the following: -- cgit v1.2.3