From 052300b72e963cce46665f2620bc00d2383d184e Mon Sep 17 00:00:00 2001 From: Christophe Fergeau Date: Tue, 11 May 2010 12:13:52 +0000 Subject: don't ever remove locales-en when removing unused locales It's used as the default locale on the flash --- perl-install/pkgs.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index ff1399261..2748537d6 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -242,7 +242,7 @@ sub detect_unselected_locale_packages { my $locale = lang::read(); my $selected_locale = $locales_prefix . lang::locale_to_main_locale($locale->{lang}); my @available_locales = $do_pkgs->are_installed($locales_prefix . '*'); - member($selected_locale, @available_locales) ? difference2(\@available_locales, [ $selected_locale ]) : (); + member($selected_locale, @available_locales) ? difference2(\@available_locales, [ $selected_locale 'locales-en' ]) : (); } sub remove_unused_packages { -- cgit v1.2.1