summaryrefslogtreecommitdiffstats
path: root/perl-install/pkgs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-23 17:57:03 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-23 17:57:03 +0000
commit94bec14e16b9f0364018d08beb2fbf3dfc91267d (patch)
tree718a25d87d998ed2075518a806e05e6e46c27d5b /perl-install/pkgs.pm
parent9c7df16fb5bd54f1b475ada02808e35a404ed1ce (diff)
downloaddrakx-backup-do-not-use-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar
drakx-backup-do-not-use-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.gz
drakx-backup-do-not-use-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.bz2
drakx-backup-do-not-use-94bec14e16b9f0364018d08beb2fbf3dfc91267d.tar.xz
drakx-backup-do-not-use-94bec14e16b9f0364018d08beb2fbf3dfc91267d.zip
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
-rw-r--r--perl-install/pkgs.pm7
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");