diff options
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPOBJ.pm | 4 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 3 |
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; |