summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/any.pm2
-rw-r--r--perl-install/interactive.pm2
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 4accdcdc2..25ca7b190 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -752,7 +752,7 @@ when your installation is complete and you restart your system.")),
$in->ask_from_($common, [
{ val => \$lang, separator => '|',
- if_($using_images, image2f => sub { $name2l{$_[0]} =~ /^[a-z]/ ? ('', "langs/lang-$name2l{$_[0]}") : $_[0] }),
+ if_($using_images, image2f => sub { $name2l{$_[0]} =~ /^[a-z]/ && "langs/lang-$name2l{$_[0]}" }),
format => sub { $_[0] =~ /(.*\|)(.*)/ ? $1 . lang::l2name($2) : lang::l2name($_[0]) },
list => \@langs, sort => 0 },
if_(!$::move,
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 324fe3442..df5030883 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -51,7 +51,7 @@ use do_pkgs;
#- tree_expanded boolean telling wether the tree should be wide open by default
#- quit_if_double_click boolean
#- allow_empty_list disables the special cases for 0 and 1 element lists
-#- image2f is a subroutine which takes a value of the list as parameter, and returns an array (text, image_file_name))
+#- image2f is a subroutine which takes a value of the list as parameter, and returns image_file_name
#- entry (the default) (with hidden)
#
#- heritate from this class and you'll get all made interactivity for same steps.