summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm5
1 files changed, 5 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index ebb9da067..224f97451 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -138,6 +138,11 @@ sub ask_from_treelist {
my ($o, $title, $message, $separator, $l, $def) = @_;
ask_from_treelistf($o, $title, $message, $separator, undef, $l, $def);
}
+sub ask_from_treelist_ {
+ my ($o, $title, $message, $separator, $l, $def) = @_;
+ my $transl = sub { join '|', map { translate($_) } split(quotemeta($separator), $_[0]) };
+ ask_from_treelistf($o, $title, $message, $separator, $transl, $l, $def);
+}
sub ask_from_treelistf {
my ($o, $title, $message, $separator, $f, $l, $def) = @_;
ask_from_entries_refH($o, $title, $message, [ { val => \$def, separator => $separator, list => $l, format => $f } ]);