diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2003-02-18 20:28:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2003-02-18 20:28:17 +0000 |
| commit | 9e8f3e9944e3c88f849ab4634f934ae3cfe30e06 (patch) | |
| tree | 8f0181178d31a810b03f84301e31c278f6e30f6e | |
| parent | 2b8ed29ac81065d904984b57963b0bf9eddb9177 (diff) | |
| download | drakx-backup-do-not-use-9e8f3e9944e3c88f849ab4634f934ae3cfe30e06.tar drakx-backup-do-not-use-9e8f3e9944e3c88f849ab4634f934ae3cfe30e06.tar.gz drakx-backup-do-not-use-9e8f3e9944e3c88f849ab4634f934ae3cfe30e06.tar.bz2 drakx-backup-do-not-use-9e8f3e9944e3c88f849ab4634f934ae3cfe30e06.tar.xz drakx-backup-do-not-use-9e8f3e9944e3c88f849ab4634f934ae3cfe30e06.zip | |
simplify
| -rw-r--r-- | perl-install/interactive/newt.pm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm index a816dc0fe..b58163399 100644 --- a/perl-install/interactive/newt.pm +++ b/perl-install/interactive/newt.pm @@ -163,7 +163,7 @@ sub ask_fromW_real { $w->TreeAdd($text, $index, $parents); }; - my @data = (undef); + my @data = ''; my $populate; $populate = sub { my ($node, $parents) = @_; if (my $l = $node->{_order_}) { @@ -175,9 +175,8 @@ sub ask_fromW_real { if (my $l = $node->{_leaves_}) { foreach (@$l) { my ($leaf, $data) = @$_; - my $s = scalar($data); + $add_item->($leaf, int(@data), $parents); push @data, $data; - $add_item->($leaf, int(@data) - 1, $parents); } } }; |