diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-23 17:57:03 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-23 17:57:03 +0000 |
| commit | 94bec14e16b9f0364018d08beb2fbf3dfc91267d (patch) | |
| tree | 718a25d87d998ed2075518a806e05e6e46c27d5b /perl-install/pkgs.pm | |
| parent | 9c7df16fb5bd54f1b475ada02808e35a404ed1ce (diff) | |
| download | drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.gz drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.bz2 drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.xz drakx-94bec14e16b9f0364018d08beb2fbf3dfc91267d.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 2596e8c74..31166e0ff 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -226,10 +226,13 @@ sub readCompssList($$$) { my $p = $e->{$name} or log::l("unknown entry $name (in compssList)"), next; $p->{values} = \@values; } + + my %done; foreach (split ':', $ENV{LANGUAGE}) { my $locales = "locales-" . substr($_, 0, 2); my $p = $packages->{$locales} or next; foreach ($locales, @{$p->{provides} || []}, @{$by_lang{$_} || []}) { + next if $done{$_}; $done{$_} = 1; my $p = $packages->{$_} or next; $p->{values} = [ map { $_ + 70 } @{$p->{values}} ]; } @@ -533,6 +536,10 @@ sub install($$$) { my ($prefix, $isUpgrade, $toInstall) = @_; my %packages; +#- foreach (@$toInstall) { +#- print "$_->{name}\n"; +#- } + return if $::g_auto_install; log::l("reading /usr/lib/rpm/rpmrc"); |