From 51a98b6175e075a5af3c8ec32cbd24616ccc3712 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 21 Jan 2001 18:00:34 +0000 Subject: (ask_from_treelist_): created, split with the separator, call translate on words, then re-join. --- perl-install/interactive.pm | 5 +++++ 1 file changed, 5 insertions(+) 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 } ]); -- cgit v1.2.1