summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-07-28 14:01:00 +0000
committerNorbert Preining <preining@logic.at>2008-07-28 14:01:00 +0000
commit0abdb197bd7f549e393aee0272ff7749af297020 (patch)
treeb731a09f3744fa0ea823d5d269aa1d0150258bb5 /Master/tlpkg/TeXLive
parent20d847b4ce4a7d26f83d00b8abc36c386f1420f2 (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/TeXLive')
-rw-r--r--Master/tlpkg/TeXLive/TLMedia.pm4
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));