summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-07 16:04:35 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-07 16:04:35 +0000
commitb8f3f1d37183e4ba45a173f1c9800e56daa1fa3a (patch)
tree040821895050aa4365c9e9e72a142dcc5fa3de87 /perl-install/interactive.pm
parent5d31c65a29a5be64fe46946651108e0e13242037 (diff)
downloaddrakx-b8f3f1d37183e4ba45a173f1c9800e56daa1fa3a.tar
drakx-b8f3f1d37183e4ba45a173f1c9800e56daa1fa3a.tar.gz
drakx-b8f3f1d37183e4ba45a173f1c9800e56daa1fa3a.tar.bz2
drakx-b8f3f1d37183e4ba45a173f1c9800e56daa1fa3a.tar.xz
drakx-b8f3f1d37183e4ba45a173f1c9800e56daa1fa3a.zip
no_comment
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm13
1 files changed, 6 insertions, 7 deletions
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