diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-09 00:25:29 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-09 00:25:29 +0000 |
commit | fe321691b251b6ecfc59bc6703ae3388f2bc080a (patch) | |
tree | 6b49e7fd6be3a700acbe0cede9a454eb41e723e9 /perl-install | |
parent | 756b4c2326155690b835efdbdb8cc132bb815119 (diff) | |
download | drakx-fe321691b251b6ecfc59bc6703ae3388f2bc080a.tar drakx-fe321691b251b6ecfc59bc6703ae3388f2bc080a.tar.gz drakx-fe321691b251b6ecfc59bc6703ae3388f2bc080a.tar.bz2 drakx-fe321691b251b6ecfc59bc6703ae3388f2bc080a.tar.xz drakx-fe321691b251b6ecfc59bc6703ae3388f2bc080a.zip |
(read_rpmsrate): handle the special case of packages requiring locales-*,
adding the flag LOCALES"*" for them
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/pkgs.pm | 4 |
1 files changed, 3 insertions, 1 deletions
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"; } |