diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2008-01-03 01:56:09 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2008-01-03 01:56:09 +0000 |
commit | 8b52d3c51cb8a6618ebe2418d7065cc88fb88b64 (patch) | |
tree | 9f1490e1408d85488fc31f945525baca2120430b | |
parent | 57fdfaa4b912e094c9c848b9941b299a9868cd8b (diff) |
TLUtils.pm: fixed architectures_available().
git-svn-id: svn://tug.org/texlive/trunk@6028 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r-- | Master/tlpkg/TeXLive/TLUtils.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/TeXLive/TLUtils.pm b/Master/tlpkg/TeXLive/TLUtils.pm index 3780fcc7fb0..43b0f376ea8 100644 --- a/Master/tlpkg/TeXLive/TLUtils.pm +++ b/Master/tlpkg/TeXLive/TLUtils.pm @@ -797,8 +797,8 @@ sub architectures_available { @dir=readdir DIR; chomp @dir; for (@dir) { - if ((/bin-kpathsea.(.*).zip$/) || (/bin-kpathsea.(.*).tar.lzma$/)) { - push @platforms, $1; + if ((/bin-kpathsea\.(.*)\.tar\.lzma$/) or (/bin-kpathsea\.(.*)\.zip$/)) { + push(@platforms, $1) unless $1 eq 'doc'; } } } elsif (&media eq "DVD") { |