From ece7a653701583cb413c95d8d95e8d95da130382 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 30 Aug 2001 09:27:46 +0000
Subject: cleanup

---
 perl-install/any.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 4889dff70..9c74661f4 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -787,7 +787,8 @@ sub selectLanguage {
 	       } 
 	   } sort { $a->[1] cmp $b->[1] } map { [ $_, lang::lang2text($_) ] } lang::list()),
 	  { val => \$langs->{all}, type => 'bool', text => _("All"), advanced => 1 }
-	]) and $lang;
+	]) or return;
+    $lang;
 }
 
 sub write_passwd_user {
-- 
cgit v1.2.1