From 51df87b298ca9f84eaa7e3a61a31abda1ace7abd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Fri, 19 Dec 2003 09:36:27 +0000
Subject: (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)

---
 perl-install/wizards.pm | 2 ++
 1 file changed, 2 insertions(+)

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}}) { 
-- 
cgit v1.2.1