From da06f544fa0538009aa0dde47182706978d30869 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 17 Sep 2010 22:48:14 +0000 Subject: allow and ignore whitespace after shortdesc, even if nothing else. git-svn-id: svn://tug.org/texlive/trunk@19777 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/TeXLive/TLPOBJ.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Master/tlpkg/TeXLive/TLPOBJ.pm') diff --git a/Master/tlpkg/TeXLive/TLPOBJ.pm b/Master/tlpkg/TeXLive/TLPOBJ.pm index 497367b3d7a..3b6a74f5cc1 100644 --- a/Master/tlpkg/TeXLive/TLPOBJ.pm +++ b/Master/tlpkg/TeXLive/TLPOBJ.pm @@ -261,11 +261,11 @@ 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") { + } elsif ($line =~ /^shortdesc\s*$/o) { # shortdesc $self->{'shortdesc'} .= " "; $lastcmd = "shortdesc"; next; - } elsif ($line =~ /^shortdesc\s+(.*)$/o) { + } elsif ($line =~ /^shortdesc\s+(.*)$/o) { # shortdesc $self->{'shortdesc'} .= "$1"; $lastcmd = "shortdesc"; next; -- cgit v1.2.3