diff options
| author | Olivier Blin <oblin@mandriva.com> | 2008-09-05 14:26:28 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.com> | 2008-09-05 14:26:28 +0000 |
| commit | b998ce73afeffd221b2eb42955187006dc5f22e0 (patch) | |
| tree | 67d44c33dacc16412203c5ad8a811c0e061bffb0 /perl-install | |
| parent | 0773ca097f1d8674f72c0822fea209e692510ddf (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/pkgs.pm | 10 | ||||
| -rw-r--r-- | perl-install/standalone/remove-unselected-locales | 13 |
2 files changed, 11 insertions, 12 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index e7809a048..dea3f3273 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -211,4 +211,14 @@ sub detect_unused_hardware_packages { $do_pkgs->are_installed(@unneeded_hardware_packages); } +sub detect_unselected_locale_packages { + my ($do_pkgs) = @_; + require lang; + my $locales_prefix = 'locales-'; + my $locale = lang::read(); + my $selected_locale = $locales_prefix . $locale->{lang}; + my @available_locales = $do_pkgs->are_installed($locales_prefix . '*'); + member($selected_locale, @available_locales) ? difference2(\@available_locales, [ $selected_locale ]) : (); +} + 1; 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 |