summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-06-16 21:21:45 +0000
committerNorbert Preining <preining@logic.at>2008-06-16 21:21:45 +0000
commit87f092705ce2c745e18816998cc5b63835b375c2 (patch)
tree3346ce68e88cfe821c25bc27e74f534d093344a4 /Master
parent0cd4db0a75115ef52c9d9a4f015d743e46c8c634 (diff)
TLPSRC.pm: allow spaces at the end of line and ignore them
git-svn-id: svn://tug.org/texlive/trunk@8796 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLPSRC.pm18
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 {