From 9e8f3e9944e3c88f849ab4634f934ae3cfe30e06 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 18 Feb 2003 20:28:17 +0000
Subject: simplify

---
 perl-install/interactive/newt.pm | 5 ++---
 1 file 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);
 		    }
 		}
 	    };
-- 
cgit v1.2.1