summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive.pm
diff options
context:
space:
mode:
authorpad <pad@mandriva.com>1999-09-05 13:59:16 +0000
committerpad <pad@mandriva.com>1999-09-05 13:59:16 +0000
commitb2dcc1f05939631e7583740a36f3c41c87235639 (patch)
treebee0630d0f11935a8e812b8fed0798e1148d449f /perl-install/interactive.pm
parenta7c17125164aa7fd336fdab93e49032239f2b626 (diff)
downloaddrakx-b2dcc1f05939631e7583740a36f3c41c87235639.tar
drakx-b2dcc1f05939631e7583740a36f3c41c87235639.tar.gz
drakx-b2dcc1f05939631e7583740a36f3c41c87235639.tar.bz2
drakx-b2dcc1f05939631e7583740a36f3c41c87235639.tar.xz
drakx-b2dcc1f05939631e7583740a36f3c41c87235639.zip
clean graphical to use ask_from_entries
Diffstat (limited to 'perl-install/interactive.pm')
-rw-r--r--perl-install/interactive.pm9
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index de9998145..dc846f42b 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -105,7 +105,14 @@ 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} ];
+ my $val_hash = [ map
+ { if ((ref $_) eq "SCALAR") {
+ { val => $_ }
+ } else {
+ @{$_->{list}} ?
+ { (%{$_}, type => "list")} : {(%{$_})}
+ }
+ } @{$val} ];
$o->ask_from_entries_refW($title, $message, $l, $val_hash, %callback)