summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-12-19 09:36:27 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-12-19 09:36:27 +0000
commit51df87b298ca9f84eaa7e3a61a31abda1ace7abd (patch)
tree64cb0081f28c18ad82e646304cb79ad4b928c741 /perl-install
parent9b84ebd2dbadac46b74598e67dbef15a5f8dcfc8 (diff)
downloaddrakx-51df87b298ca9f84eaa7e3a61a31abda1ace7abd.tar
drakx-51df87b298ca9f84eaa7e3a61a31abda1ace7abd.tar.gz
drakx-51df87b298ca9f84eaa7e3a61a31abda1ace7abd.tar.bz2
drakx-51df87b298ca9f84eaa7e3a61a31abda1ace7abd.tar.xz
drakx-51df87b298ca9f84eaa7e3a61a31abda1ace7abd.zip
(process) add val_ref and list_ref support to ease data manipulation
(as wizard data structure is built early at compile time, ref on single values aren't any more valid when values are setted)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/wizards.pm2
1 files changed, 2 insertions, 0 deletions
diff --git a/perl-install/wizards.pm b/perl-install/wizards.pm
index 7442074b1..a9dd3b19c 100644
--- a/perl-install/wizards.pm
+++ b/perl-install/wizards.pm
@@ -109,6 +109,8 @@ sub process {
my $data = defined $page->{data} ? ref $page->{data} ? $page->{data} : [ { label => '' } ] : [ { label => '' } ];
my $data2;
foreach my $d (@$data) {
+ $d->{val} = ${$d->{val_ref}} if $d->{val_ref};
+ $d->{list} = $d->{list_ref} if $d->{list_ref};
if ($d->{boolean_list}) {
my $i;
foreach (@{$d->{boolean_list}}) {