(ask_from_treelist_): created, split with the separator, call translate on

words, then re-join.

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 } ]);