diff options
author | Norbert Preining <preining@logic.at> | 2008-06-16 21:21:45 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-06-16 21:21:45 +0000 |
commit | 87f092705ce2c745e18816998cc5b63835b375c2 (patch) | |
tree | 3346ce68e88cfe821c25bc27e74f534d093344a4 /Master/tlpkg/TeXLive/TLPSRC.pm | |
parent | 0cd4db0a75115ef52c9d9a4f015d743e46c8c634 (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/tlpkg/TeXLive/TLPSRC.pm')
-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 { |