From fe321691b251b6ecfc59bc6703ae3388f2bc080a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 9 Mar 2001 00:25:29 +0000
Subject: (read_rpmsrate): handle the special case of packages requiring
 locales-*, adding the flag LOCALES"*" for them

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

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

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index c53971225..ba6fa0d48 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -642,7 +642,9 @@ sub read_rpmsrate {
 	    foreach (split ' ', $data) {
 		if ($packages) {
 		    my $p = packageByName($packages, $_) or next;
-		    packageSetRateRFlags($p, $rate, grep { !/^\d$/ } @m);
+		    
+		    my @m2 = map { packageName(packageById($packages, $_)) =~ /locales-(.*)/ ? qq(LOCALES"$1") : () } packageDepsId($p);
+		    packageSetRateRFlags($p, $rate, (grep { !/^\d$/ } @m), @m2);
 		} else {
 		    print "$_ = ", join(" && ", @m), "\n";
 		}
-- 
cgit v1.2.1