From b8f3f1d37183e4ba45a173f1c9800e56daa1fa3a Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 7 Sep 1999 16:04:35 +0000 Subject: no_comment --- perl-install/interactive.pm | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) (limited to 'perl-install/interactive.pm') diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index fe941bd30..8a9c73ade 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -89,22 +89,21 @@ sub ask_many_from_list($$$$;$) { [ map { $$_ } @$val ] : undef; } -sub ask_from_entry($$$;$%) { - my ($o, $title, $message, $def, %callback) = @_; +sub ask_from_entry { + my ($o, $title, $message, $label, $def, %callback) = @_; - $message = ref $message ? $message : [ $message ]; - $o->ask_from_entries($title, $message, [$def], %callback); -# $o->ask_from_entryW($title, $message, $def); + $o->ask_from_entries($title, $message, [ $label ], [ $def ], %callback); } sub ask_from_entries($$$$;$%) { my ($o, $title, $message, $l, $def, %callback) = @_; my $val = [ map { my $i = $_; \$i } @$def ]; - $o->ask_from_entries_ref($title, $message, $l, $val, %callback) ? - [ map { $$_ } @$val ] : undef; + $o->ask_from_entries_ref($title, $message, $l, $val, %callback) ? + map { $$_ } @$val : + undef; } # can get a hash of callback: focus_out changed and complete # moreove if you pass a hash with a field list -> combo -- cgit v1.2.1