diff options
Diffstat (limited to 'Master')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm index 0880bb4bcf7..09ec5eb6ada 100644 --- a/Master/tlpkg/TeXLive/TLPSRC.pm +++ b/Master/tlpkg/TeXLive/TLPSRC.pm @@ -88,34 +88,34 @@ sub from_file $started = 1; } else { $started || die("$srcfile: first tlpsrc directive must be 'name'"); - if ($line =~ /^shortdesc\s*(.*)$/) { + if ($line =~ /^shortdesc\s*(.*)\s*$/) { $shortdesc = "$1"; next; } elsif ($line =~ /^category\s+$CategoriesRegexp$/) { $category = "$1"; next; - } elsif ($line =~ /^longdesc\s+(.*)$/) { + } elsif ($line =~ /^longdesc\s+(.*)\s*$/) { $longdesc .= "$1 "; next; - } elsif ($line =~ /^catalogue\s+(.*)$/) { + } elsif ($line =~ /^catalogue\s+(.*)\s*$/) { $catalogue = "$1"; next; - } elsif ($line =~ /^runpattern\s+(.*)$/) { + } elsif ($line =~ /^runpattern\s+(.*)\s*$/) { push @runpatterns, "$1" if ("$1" ne ""); next; - } elsif ($line =~ /^srcpattern\s+(.*)$/) { + } elsif ($line =~ /^srcpattern\s+(.*)\s*$/) { push @srcpatterns, "$1" if ("$1" ne ""); next; - } elsif ($line =~ /^docpattern\s+(.*)$/) { + } elsif ($line =~ /^docpattern\s+(.*)\s*$/) { push @docpatterns, "$1" if ("$1" ne ""); next; - } elsif ($line =~ /^binpattern\s+(.*)$/) { + } elsif ($line =~ /^binpattern\s+(.*)\s*$/) { push @binpatterns, "$1" if ("$1" ne ""); next; - } elsif ($line =~ /^execute\s+(.*)$/) { + } elsif ($line =~ /^execute\s+(.*)\s*$/) { push @executes, "$1" if ("$1" ne ""); next; - } elsif ($line =~ /^depend\s+(.*)$/) { + } elsif ($line =~ /^depend\s+(.*)\s*$/) { push @depends, "$1" if ("$1" ne ""); next; } else { |