From 9838d699ec836e6d0d1e811c43f8e2ea3991a7b2 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 17 Sep 2010 02:35:37 +0000 Subject: allow for empty shortdesc lines git-svn-id: svn://tug.org/texlive/trunk@19771 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm') diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 5e3804d87a6..497367b3d7a 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -261,6 +261,10 @@ sub from_fh { $self->{'cataloguedata'}{$1} = "$2"; } elsif ($line =~ /^catalogue-([^\s]+)\s*/o) { 1; # ignore e.g. catalogue-ctan without parameter + } elsif ($line eq "shortdesc") { + $self->{'shortdesc'} .= " "; + $lastcmd = "shortdesc"; + next; } elsif ($line =~ /^shortdesc\s+(.*)$/o) { $self->{'shortdesc'} .= "$1"; $lastcmd = "shortdesc"; -- cgit v1.2.3