summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.com>2008-09-05 14:26:28 +0000
committerOlivier Blin <oblin@mandriva.com>2008-09-05 14:26:28 +0000
commitb998ce73afeffd221b2eb42955187006dc5f22e0 (patch)
tree67d44c33dacc16412203c5ad8a811c0e061bffb0 /perl-install/standalone
parent0773ca097f1d8674f72c0822fea209e692510ddf (diff)
downloaddrakx-b998ce73afeffd221b2eb42955187006dc5f22e0.tar
drakx-b998ce73afeffd221b2eb42955187006dc5f22e0.tar.gz
drakx-b998ce73afeffd221b2eb42955187006dc5f22e0.tar.bz2
drakx-b998ce73afeffd221b2eb42955187006dc5f22e0.tar.xz
drakx-b998ce73afeffd221b2eb42955187006dc5f22e0.zip
extract detect_unselected_locale_packages function
Diffstat (limited to 'perl-install/standalone')
-rw-r--r--perl-install/standalone/remove-unselected-locales13
1 files changed, 1 insertions, 12 deletions
diff --git a/perl-install/standalone/remove-unselected-locales b/perl-install/standalone/remove-unselected-locales
index 3d630225a..8e4eabccc 100644
--- a/perl-install/standalone/remove-unselected-locales
+++ b/perl-install/standalone/remove-unselected-locales
@@ -8,22 +8,11 @@ use do_pkgs;
use run_program;
use standalone;
-my $locales_prefix = 'locales-';
-
my $in = interactive->vnew;
-
my $wait = $in->wait_message(N("Localization packages removal"),
N("Finding unused localization packages..."));
-
my $do_pkgs = do_pkgs->do_pkgs($in);
-my $locale = lang::read();
-my $selected_locale = $locales_prefix . $locale->{lang};
-my @available_locales = $do_pkgs->are_installed($locales_prefix . '*');
-
-my @unselected_locales;
-@unselected_locales = difference2(\@available_locales, [ $selected_locale ])
- if member($selected_locale, @available_locales);
-
+my @unselected_locales = pkgs::detect_unselected_locale_packages($do_pkgs);
undef $wait;
#- we should have some gurpme