diff options
| author | pad <pad@mandriva.com> | 1999-09-04 22:41:06 +0000 |
|---|---|---|
| committer | pad <pad@mandriva.com> | 1999-09-04 22:41:06 +0000 |
| commit | fa70060091fcae8b97d8a958f7a8e4dcb594b8ce (patch) | |
| tree | 9e21393f038268dc0759f721aa63418fcbaeee70 /perl-install/interactive.pm | |
| parent | 7670157b32ceb6f0437c0b7b154ee1f4bf454e62 (diff) | |
| download | drakx-backup-do-not-use-fa70060091fcae8b97d8a958f7a8e4dcb594b8ce.tar drakx-backup-do-not-use-fa70060091fcae8b97d8a958f7a8e4dcb594b8ce.tar.gz drakx-backup-do-not-use-fa70060091fcae8b97d8a958f7a8e4dcb594b8ce.tar.bz2 drakx-backup-do-not-use-fa70060091fcae8b97d8a958f7a8e4dcb594b8ce.tar.xz drakx-backup-do-not-use-fa70060091fcae8b97d8a958f7a8e4dcb594b8ce.zip | |
t le ask_from_entries avec les callbacks
refait code sur la gestion des erreurs
refait code install2, la gestion des defaults, les dependances des profiles
et modules, les combo dans interactive
Diffstat (limited to 'perl-install/interactive.pm')
| -rw-r--r-- | perl-install/interactive.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm index c466dabbf..de9998145 100644 --- a/perl-install/interactive.pm +++ b/perl-install/interactive.pm @@ -1,4 +1,5 @@ + package interactive; use diagnostics; @@ -104,8 +105,9 @@ sub ask_from_entries_ref($$$$;$%) { my ($o, $title, $message, $l, $val, %callback) = @_; $message = ref $message ? $message : [ $message ]; + my $val_hash = [ map { (ref $_) eq "SCALAR" ? { val => $_ } : {(%{$_}, type => "list")}} @{$val} ]; - $o->ask_from_entries_refW($title, $message, $l, $val, %callback) + $o->ask_from_entries_refW($title, $message, $l, $val_hash, %callback) } sub wait_message($$$) { |