summaryrefslogtreecommitdiffstats
path: root/perl-install/install/any.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-08-18 12:45:24 +0000
committerThierry Vignaud <tv@mandriva.org>2008-08-18 12:45:24 +0000
commit9c3d8a5a3398fc4495296f6f30acd2c967397ff6 (patch)
tree17ff12ac406c8d82cb5cbf5560b363d7416124f5 /perl-install/install/any.pm
parent437db384617efd6241a83b50f1391c9b82f22105 (diff)
downloaddrakx-backup-do-not-use-9c3d8a5a3398fc4495296f6f30acd2c967397ff6.tar
drakx-backup-do-not-use-9c3d8a5a3398fc4495296f6f30acd2c967397ff6.tar.gz
drakx-backup-do-not-use-9c3d8a5a3398fc4495296f6f30acd2c967397ff6.tar.bz2
drakx-backup-do-not-use-9c3d8a5a3398fc4495296f6f30acd2c967397ff6.tar.xz
drakx-backup-do-not-use-9c3d8a5a3398fc4495296f6f30acd2c967397ff6.zip
(default_packages) fix selecting locales-XX for locales that specify
scripting (#42663)
Diffstat (limited to 'perl-install/install/any.pm')
-rw-r--r--perl-install/install/any.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index cee100845..9eef9b195 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -530,7 +530,9 @@ sub default_packages {
push @l, uniq(grep { $_ } map { fs::format::package_needed_for_partition_type($_) } @{$o->{fstab}});
push @l, 'ntfs-3g' if any { $_->{fs_type} eq 'ntfs-3g' } @{$o->{fstab}};
- my @locale_pkgs = map { URPM::packages_providing($o->{packages}, 'locales-' . $_) } lang::langsLANGUAGE($o->{locale}{langs});
+ # handle locales with specified scripting:
+ my @languages = map { s/\@.*//; $_ } lang::langsLANGUAGE($o->{locale}{langs});
+ my @locale_pkgs = map { URPM::packages_providing($o->{packages}, 'locales-' . $_) } @languages;
unshift @l, uniq(map { $_->name } @locale_pkgs);
@l;