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 /perl-install/wizards.pm | |
| 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)
Diffstat (limited to 'perl-install/wizards.pm')
| -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}}) { |