diff options
| author | Norbert Preining <preining@logic.at> | 2008-07-28 09:55:42 +0000 |
|---|---|---|
| committer | Norbert Preining <preining@logic.at> | 2008-07-28 09:55:42 +0000 |
| commit | 8df3b11b7cb11b6061ac6c85e1b1bbdbe91a72be (patch) | |
| tree | 0a7273db407ff743d2662f037dd18c2ffa5e0b61 /Master/tlpkg | |
| parent | e3b468a87625a91fb76ba756944a5c5a8223dce4 (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
Diffstat (limited to 'Master/tlpkg')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLPSRC.pm | 4 |
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; |