diff options
author | Karl Berry <karl@freefriends.org> | 2008-03-07 19:17:24 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-03-07 19:17:24 +0000 |
commit | b253317283f1d4cbf2a8c292bf3814b714e43ab3 (patch) | |
tree | 4a2ba279951de61b9aabbcf70c98e95a63f976e6 /Master | |
parent | 07ef9a58959abb19cc897735e4bb81727276b4fe (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')
-rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 4 |
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; |