diff options
| author | Karl Berry <karl@freefriends.org> | 2008-03-08 17:30:21 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2008-03-08 17:30:21 +0000 |
| commit | ab7d45da5d0e88a2e22619991427c55e142b5557 (patch) | |
| tree | 6a9d45d9c839d3a983fb264c3448d2ef9381badd /Master/tlpkg/TeXLive/TLTREE.pm | |
| parent | 94ded7cf33376ecbfa603051b5f0886d26d0a57d (diff) | |
only the first level under bin/, though.
git-svn-id: svn://tug.org/texlive/trunk@6888 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/TeXLive/TLTREE.pm')
| -rw-r--r-- | Master/tlpkg/TeXLive/TLTREE.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm index db03091f66e..b47e98813d9 100644 --- a/Master/tlpkg/TeXLive/TLTREE.pm +++ b/Master/tlpkg/TeXLive/TLTREE.pm @@ -65,7 +65,7 @@ sub _initialize_lines { my $entry = "$10"; next if -d $entry; # TODO: what to do with links??? # collect architectures, assuming nothing is in bin/ but arch subdirs. - if ($entry =~ m,^bin/(.*)/,) { + if ($entry =~ m,^bin/([^/*)/,) { $archs{$1} = 1; } $self->{'_allfiles'}{$entry}{'lastchangedrev'} = $lastchanged; |