From 6ac4048757d0d3d54423a6a058fed7bdd5413c3c Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 19 Jul 2000 20:56:06 +0000
Subject: *** empty log message ***

---
 perl-install/bootloader.pm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index ea9096264..f3fe2cd59 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -131,14 +131,11 @@ sub add_entry($$) {
 
     foreach (@$entries) {
 	if ($_->{label} eq $v->{label}) {
-	    if (compare_entries($_, $v)) {
-		$_->{label} = "old${freeold}_$_->{label}";
-	    } else {
-		$v = undef; #- avoid inserting it twice as another entry already exists !
-	    }
+	    compare_entries($_, $v) or return; #- avoid inserting it twice as another entry already exists !
+	    $_->{label} = "old${freeold}_$_->{label}";
 	}
     }
-    $v and push @$entries, $v;
+    push @$entries, $v;
 }
 
 sub add_kernel($$$$$) {
-- 
cgit v1.2.1