diff options
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 10 |
1 files changed, 10 insertions, 0 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; |