From 94bec14e16b9f0364018d08beb2fbf3dfc91267d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 23 Dec 1999 17:57:03 +0000
Subject: no_comment

---
 perl-install/pkgs.pm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'perl-install/pkgs.pm')

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");
-- 
cgit v1.2.1