diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-04-20 12:48:48 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-04-20 12:48:48 +0000 |
| commit | c14cbfc9770053f195c74dcb1404bfa10c9da75f (patch) | |
| tree | dfa3d4024251d99ec5ebd6384f2b0e9b00d7da7c /perl-install/pkgs.pm | |
| parent | 06ef0920b41b391d4d3953b03c4fd266872dcd82 (diff) | |
| download | drakx-backup-do-not-use-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar drakx-backup-do-not-use-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar.gz drakx-backup-do-not-use-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar.bz2 drakx-backup-do-not-use-c14cbfc9770053f195c74dcb1404bfa10c9da75f.tar.xz drakx-backup-do-not-use-c14cbfc9770053f195c74dcb1404bfa10c9da75f.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 11 |
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 }; |