diff options
| author | pad <pad@mandriva.com> | 1999-09-04 14:43:15 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-04 14:43:15 +0000 |
| commit | 2d380f59735e2e5b8637447c3db567120b6cd0d3 (patch) | |
| tree | 6868da2d83a206164c20492bf4a2ab38dc01fcdb /perl-install/interactive.pm | |
| parent | dd60c7b883a429a626c0d2f98446f34e40aa8620 (diff) | |
| download | drakx-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.pm | 12 |
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($$$) { |