summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-04 14:43:15 +0000
committerpad <pad@mandriva.com>1999-09-04 14:43:15 +0000
commit2d380f59735e2e5b8637447c3db567120b6cd0d3 (patch)
tree6868da2d83a206164c20492bf4a2ab38dc01fcdb /perl-install/interactive.pm
parentdd60c7b883a429a626c0d2f98446f34e40aa8620 (diff)
downloaddrakx-backup-do-not-use-2d380f59735e2e5b8637447c3db567120b6cd0d3.tar
drakx-backup-do-not-use-2d380f59735e2e5b8637447c3db567120b6cd0d3.tar.gz
drakx-backup-do-not-use-2d380f59735e2e5b8637447c3db567120b6cd0d3.tar.bz2
drakx-backup-do-not-use-2d380f59735e2e5b8637447c3db567120b6cd0d3.tar.xz
drakx-backup-do-not-use-2d380f59735e2e5b8637447c3db567120b6cd0d3.zip
complete on the spooldir field
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 8ba93a4d9..c466dabbf 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -91,21 +91,21 @@ sub ask_from_entry($$$;$) {
$o->ask_from_entryW($title, $message, $def);
}
-sub ask_from_entries($$$$;$) {
- my ($o, $title, $message, $l, $def) = @_;
+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) ?
+ $o->ask_from_entries_ref($title, $message, $l, $val, %callback) ?
[ map { $$_ } @$val ] : undef;
}
-sub ask_from_entries_ref($$$$;$) {
- my ($o, $title, $message, $l, $val) = @_;
+sub ask_from_entries_ref($$$$;$%) {
+ my ($o, $title, $message, $l, $val, %callback) = @_;
$message = ref $message ? $message : [ $message ];
- $o->ask_from_entries_refW($title, $message, $l, $val)
+ $o->ask_from_entries_refW($title, $message, $l, $val, %callback)
}
sub wait_message($$$) {