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/http.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/interactive/http.pm b/perl-install/interactive/http.pm
index 42e116380..cc48ee19a 100644
--- a/perl-install/interactive/http.pm
+++ b/perl-install/interactive/http.pm
@@ -68,7 +68,7 @@ sub ask_fromW {
 
     print "<table>\n";
 
-    map_index {
+    each_index {
 	my $e = $_;
 
 	print "<tr><td>$e->{label}</td><td>\n";
@@ -120,7 +120,7 @@ sub ask_fromW {
 	print $q->h1(_("Error")), $q->p("Sorry, you can't go back");
 	goto redisplay;
     }
-    map_index {
+    each_index {
 	my $e = $_;
 	my $v = $q->param("w$::i");
 	if ($e->{type} eq 'bool') {
-- 
cgit v1.2.1