summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2010-09-17 02:35:37 +0000
committerNorbert Preining <preining@logic.at>2010-09-17 02:35:37 +0000
commit9838d699ec836e6d0d1e811c43f8e2ea3991a7b2 (patch)
treef61f1693312be8db118635fd691269fb42243b56 /Master/tlpkg/TeXLive
parent495a87e8b82a51518b29bf3186026b96f4e30221 (diff)
allow for empty shortdesc lines
git-svn-id: svn://tug.org/texlive/trunk@19771 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLPOBJ.pm4
-rw-r--r--Master/tlpkg/TeXLive/TLPSRC.pm3
2 files changed, 7 insertions, 0 deletions
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";
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm
index ac07d969b87..52779211a8b 100644
--- a/Master/tlpkg/TeXLive/TLPSRC.pm
+++ b/Master/tlpkg/TeXLive/TLPSRC.pm
@@ -125,6 +125,9 @@ sub from_file
if ($line =~ /^shortdesc\s*(.*)$/) {
$shortdesc = $1;
next;
+ } elsif ($line =~ /^shortdesc$/) {
+ $shortdesc = "";
+ next;
} elsif ($line =~ /^category\s+$CategoriesRegexp$/) {
$category = $1;
next;