summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-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);
}
}
};