diff options
Diffstat (limited to 'perl-install/interactive.pm')
| -rw-r--r-- | perl-install/interactive.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index ed2c79de4..a67cf7893 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -119,6 +119,16 @@ sub ask_from_entries($$$$;$%) { map { $$_ } @$val : undef; } + +sub ask_from_entries_refH($$$;$%) { + my ($o, $title, $message, $h, %callback) = @_; + + ask_from_entries_ref($o, $title, $message, + [ grep_index { even($::i) } @$h ], + [ grep_index { odd($::i) } @$h ], + %callback); +} + #- can get a hash of callback: focus_out changed and complete #- moreove if you pass a hash with a field list -> combo #- if you pass a hash with a field hidden -> emulate stty -echo |