summaryrefslogtreecommitdiffstats
path: root/perl-install/interactive
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-02-18 20:28:17 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-02-18 20:28:17 +0000
commit9e8f3e9944e3c88f849ab4634f934ae3cfe30e06 (patch)
tree8f0181178d31a810b03f84301e31c278f6e30f6e /perl-install/interactive
parent2b8ed29ac81065d904984b57963b0bf9eddb9177 (diff)
downloaddrakx-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
Diffstat (limited to 'perl-install/interactive')
-rw-r--r--perl-install/interactive/newt.pm5
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);
}
}
};