summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-07-28 09:55:42 +0000
committerNorbert Preining <preining@logic.at>2008-07-28 09:55:42 +0000
commit8df3b11b7cb11b6061ac6c85e1b1bbdbe91a72be (patch)
tree0a7273db407ff743d2662f037dd18c2ffa5e0b61
parente3b468a87625a91fb76ba756944a5c5a8223dce4 (diff)
TLPSRC: I forgot that arch/os combinations can have underscores, bummer
git-svn-id: svn://tug.org/texlive/trunk@9835 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLPSRC.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLPSRC.pm b/Master/tlpkg/TeXLive/TLPSRC.pm
index 3769aea9643..19ea6e36936 100644
--- a/Master/tlpkg/TeXLive/TLPSRC.pm
+++ b/Master/tlpkg/TeXLive/TLPSRC.pm
@@ -320,7 +320,7 @@ sub make_tlpobj
foreach my $p (@allpospats) {
my @todoarchs = $tltree->architectures;
my $finalp = $p;
- if ($p =~ m%^(\w+)/(!?[-a-z0-9,]+)\s+(.*)$%) {
+ if ($p =~ m%^(\w+)/(!?[-_a-z0-9,]+)\s+(.*)$%) {
my $pt = $1;
my $aa = $2;
my $pr = $3;
@@ -363,7 +363,7 @@ sub make_tlpobj
foreach my $p (@allnegpats) {
my @todoarchs = $tltree->architectures;
my $finalp = $p;
- if ($p =~ m%^(\w+)/(!?[-a-z0-9,]+)\s+(.*)$%) {
+ if ($p =~ m%^(\w+)/(!?[-_a-z0-9,]+)\s+(.*)$%) {
my $pt = $1;
my $aa = $2;
my $pr = $3;