diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-12-19 09:36:27 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-12-19 09:36:27 +0000 |
| commit | 51df87b298ca9f84eaa7e3a61a31abda1ace7abd (patch) | |
| tree | 64cb0081f28c18ad82e646304cb79ad4b928c741 | |
| parent | 9b84ebd2dbadac46b74598e67dbef15a5f8dcfc8 (diff) | |
| download | drakx-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)
| -rw-r--r-- | perl-install/wizards.pm | 2 |
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}}) { |