summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLTREE.pm
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-03-07 19:17:24 +0000
committerKarl Berry <karl@freefriends.org>2008-03-07 19:17:24 +0000
commitb253317283f1d4cbf2a8c292bf3814b714e43ab3 (patch)
tree4a2ba279951de61b9aabbcf70c98e95a63f976e6 /Master/tlpkg/TeXLive/TLTREE.pm
parent07ef9a58959abb19cc897735e4bb81727276b4fe (diff)
(_initialize_lines): accept anything in bin/, not
just tex programs, when gleaning arch names; that fails when reading from the one-package tree created by place. git-svn-id: svn://tug.org/texlive/trunk@6878 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index 068eaa804c6..db03091f66e 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -64,8 +64,8 @@ sub _initialize_lines {
my $lastchanged = ($8 eq "?" ? 1 : $8);
my $entry = "$10";
next if -d $entry; # TODO: what to do with links???
- # collect architectures
- if ($entry =~ m,^bin/(.*)/tex.*$,) {
+ # collect architectures, assuming nothing is in bin/ but arch subdirs.
+ if ($entry =~ m,^bin/(.*)/,) {
$archs{$1} = 1;
}
$self->{'_allfiles'}{$entry}{'lastchangedrev'} = $lastchanged;