From c14cbfc9770053f195c74dcb1404bfa10c9da75f Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 20 Apr 2000 12:48:48 +0000 Subject: no_comment --- perl-install/pkgs.pm | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 4a7d6d3f9..9a3d6478b 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -524,17 +524,16 @@ sub readCompssList { foreach (<$f>) { /^\s*$/ || /^#/ and next; my ($name, @values) = split; - my $p = $packages->[0]{$name} or log::l("unknown entry $name (in compssList)"), next; + my $p = packageByName($packages, $name) or log::l("unknown entry $name (in compssList)"), next; $p->{values} = \@values; } my %done; foreach (split ':', $ENV{RPM_INSTALL_LANG}) { - my $p = $packages->[0]{"locales-$_"} || {}; - foreach ("locales-$_", @{$p->{provides} || []}, @{$by_lang{$_} || []}) { - next if $done{$_}; $done{$_} = 1; - my $p = $packages->[0]{$_} or next; - $p->{values} = [ map { $_ + 90 } @{$p->{values} || [ (0) x @levels ]} ]; + my $p = packageByName($packages, "locales-$_") or next; + foreach ($p, @{$p->{provides} || []}, map { packageByName($packages, $_) } @{$by_lang{$_} || []}) { + next if !$_ || $done{$_}; $done{$_} = 1; + $_->{values} = [ map { $_ + 90 } @{$_->{values} || [ (0) x @levels ]} ]; } } my $l = { map_index { $_ => $::i } @levels }; -- cgit v1.2.1