From a210c173957e68e3a8deeabecff6fd8f4d1cd07b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 12 Aug 2002 16:55:47 +0000
Subject: fix typo

---
 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 183d88b99..191f1e6df 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -149,7 +149,7 @@ sub add_entry {
     my ($bootloader, $v) = @_;
 
     foreach my $label ($v->{label}, map { 'old' . $_ . '_' . $v->{label} } ('', 2..10)) {
-	my $conflicting = get_label($v->{label}, $bootloader);
+	my $conflicting = get_label($label, $bootloader);
 	if ($conflicting && same_entries($conflicting, $v)) {
 	    #- removing $conflicting. 
 	    #- It's better than better $conflicting and not adding $v because same_entries can match not so same entries, esp. regarding symlinks
-- 
cgit v1.2.1