diff options
author | Norbert Preining <preining@logic.at> | 2008-07-28 14:01:00 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-07-28 14:01:00 +0000 |
commit | 0abdb197bd7f549e393aee0272ff7749af297020 (patch) | |
tree | b731a09f3744fa0ea823d5d269aa1d0150258bb5 /Master/tlpkg | |
parent | 20d847b4ce4a7d26f83d00b8abc36c386f1420f2 (diff) |
fix bug in .ARCH treatment
git-svn-id: svn://tug.org/texlive/trunk@9839 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg')
-rw-r--r-- | Master/tlpkg/TeXLive/TLMedia.pm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLMedia.pm b/Master/tlpkg/TeXLive/TLMedia.pm index 449534e23c6..dfa2c2669bd 100644 --- a/Master/tlpkg/TeXLive/TLMedia.pm +++ b/Master/tlpkg/TeXLive/TLMedia.pm @@ -209,10 +209,8 @@ sub install_package { # we only want to try to install a .ARCH package if it actually contains # files my $foo = $1; - my $hashref = $totlpdb->get_package("$foo"); - my %binfiles = %{$hashref}; foreach my $a ($totlpdb->available_architectures) { - if (defined($binfiles{$a}) && + if (defined($fromtlpdb->get_package("$foo.$a")) && !defined($totlpdb->get_package("$foo.$a"))) { merge_into(\%ret, $self->install_package("$foo.$a", $totlpdb, $nodepends, $fallbackmedia, 0)); |