diff options
| -rw-r--r-- | perl-install/interactive.pm | 5 |
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 } ]); |