From 96279a0b9750c1d757b48c40cd1f17b5a60ea014 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 5 Nov 2002 12:26:59 +0000
Subject: use each_index instead of map_index when the return value is not used

---
 perl-install/interactive/newt.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/interactive/newt.pm')

diff --git a/perl-install/interactive/newt.pm b/perl-install/interactive/newt.pm
index 9493910e9..0f3dd7456 100644
--- a/perl-install/interactive/newt.pm
+++ b/perl-install/interactive/newt.pm
@@ -139,7 +139,7 @@ sub ask_fromW_real {
 	    $get = sub { $w->ListboxGetCurrent };
 	    $set = sub {
 		my ($val) = @_;
-		map_index {
+		each_index {
 		    $w->ListboxSetCurrent($::i) if $val eq $_;
 		} @{$e->{list}};
 	    };
@@ -163,7 +163,7 @@ sub ask_fromW_real {
     $set_all->();
 
     my $grid = Newt::Grid::CreateGrid(3, max(1, int @$l));
-    map_index {
+    each_index {
 	$grid->GridSetField(0, $::i, 1, ${Newt::Component::Label(-1, -1, $_->{e}{label})}, 0, 0, 1, 0, 1, 0);
 	$grid->GridSetField(1, $::i, 1, ${$_->{real_w}}, 0, 0, 0, 0, 1, 0);
     } @widgets;
-- 
cgit v1.2.1