summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-06 22:57:36 +0000
committerpad <pad@mandriva.com>1999-09-06 22:57:36 +0000
commitb8fa764d866874104c7f2f986804966c0328faf5 (patch)
tree2e3c9caccf2bf882deab554308c30d038ece76b2 /perl-install/interactive.pm
parent3a598bd7c7b58aac70e31c3481c85264d2bcb2f8 (diff)
downloaddrakx-b8fa764d866874104c7f2f986804966c0328faf5.tar
drakx-b8fa764d866874104c7f2f986804966c0328faf5.tar.gz
drakx-b8fa764d866874104c7f2f986804966c0328faf5.tar.bz2
drakx-b8fa764d866874104c7f2f986804966c0328faf5.tar.xz
drakx-b8fa764d866874104c7f2f986804966c0328faf5.zip
zork dont know zhy
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm9
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 2f3fb4c15..fe941bd30 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -89,12 +89,13 @@ sub ask_many_from_list($$$$;$) {
[ map { $$_ } @$val ] : undef;
}
-sub ask_from_entry($$$;$) {
- my ($o, $title, $message, $def) = @_;
+sub ask_from_entry($$$;$%) {
+ my ($o, $title, $message, $def, %callback) = @_;
+
$message = ref $message ? $message : [ $message ];
-
- $o->ask_from_entryW($title, $message, $def);
+ $o->ask_from_entries($title, $message, [$def], %callback);
+# $o->ask_from_entryW($title, $message, $def);
}
sub ask_from_entries($$$$;$%) {