summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-30 09:27:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-30 09:27:46 +0000
commitece7a653701583cb413c95d8d95e8d95da130382 (patch)
treeab69ab3b435539d18c571968297373ac6ce37bea /perl-install/any.pm
parent995e9faab8f8d3f8e4226e75965806a87931d508 (diff)
downloaddrakx-backup-do-not-use-ece7a653701583cb413c95d8d95e8d95da130382.tar
drakx-backup-do-not-use-ece7a653701583cb413c95d8d95e8d95da130382.tar.gz
drakx-backup-do-not-use-ece7a653701583cb413c95d8d95e8d95da130382.tar.bz2
drakx-backup-do-not-use-ece7a653701583cb413c95d8d95e8d95da130382.tar.xz
drakx-backup-do-not-use-ece7a653701583cb413c95d8d95e8d95da130382.zip
cleanup
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm3
1 files changed, 2 insertions, 1 deletions
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 {