summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm11
1 files changed, 5 insertions, 6 deletions
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 };