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/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 9a9470786..0e322efe1 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -940,7 +940,7 @@ sub write_grub_config {
 	    output "$::prefix$once", " " x 100;
 	}
 
-	map_index {
+	each_index {
 	    print F "default $::i" if $_->{label} eq $lilo->{default};
 	} @{$lilo->{entries}};
 
-- 
cgit v1.2.1