From 7655aa2aeafdae523e599410ee0e6171532088c2 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Sun, 16 Feb 2003 17:55:18 +0000
Subject: clean $o->{locale}{langs}

---
 perl-install/any.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl-install/any.pm b/perl-install/any.pm
index bddd4b67a..d934fa84f 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -644,6 +644,7 @@ when your installation is complete and you restart your system.")),
 		    { val => \$in->{locale}{utf8}, type => 'bool', text => N("Use Unicode by default"), advanced => 1 }))
 	]) or return;
     $langs->{$listval2val->($lang)} = 1;
+    $langs->{$_} or delete $langs->{$_} foreach keys %$langs;  #- clean hash
 
     #- convert to the default locale for asked language
     $listval2val->($lang);
-- 
cgit v1.2.1