From ece7a653701583cb413c95d8d95e8d95da130382 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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