From 0f16f9693f47687136e5058916d0d04dcb611217 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 8 Nov 1999 01:48:28 +0000
Subject: no_comment

---
 perl-install/interactive.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'perl-install/interactive.pm')

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
-- 
cgit v1.2.1