From 8df3b11b7cb11b6061ac6c85e1b1bbdbe91a72be Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 28 Jul 2008 09:55:42 +0000 Subject: 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 --- Master/tlpkg/TeXLive/TLPSRC.pm | 4 ++-- 1 file 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; -- cgit v1.2.3