1 files changed, 1 insertions, 4 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 505a9da42..44b620de1 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -835,6 +835,7 @@ sub set {
     my ($locale, $b_translate_for_console) = @_;
     
     if ($::move) {
+	move::handleI18NClp($locale->{lang});
 	put_in_hash(\%ENV, i18n_env($locale));
 	return;
     }
@@ -1170,10 +1171,6 @@ sub during_install__l2charset {
     uc($c);
 }
 
-sub get_unneeded_png_lang_files() {
-    print join(' ', map { if_(m|(langs/lang-(.*)\.png)| && !member($2, list_langs()), $1) } glob("pixmaps/langs/lang-*.png"));
-}
-
 sub check() {
     $^W = 0;
     my $ok = 1;