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

(limited to 'perl-install/ugtk.pm')

diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index 9e8af572a..01613c9fb 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -340,9 +340,9 @@ sub create_notebook {
 sub create_packtable {
     my ($options, @l) = @_;
     my $w = new Gtk::Table(0, 0, $options->{homogeneous} || 0);
-    map_index {
+    each_index {
 	my ($i, $l) = ($_[0], $_);
-	map_index {
+	each_index {
 	    my ($j) = @_;
 	    if ($_) {
 		ref $_ or $_ = new Gtk::Label($_);
-- 
cgit v1.2.1