From bfe56df987e064d9ceeea2e7d5ea39e96f8767a8 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 16 Jan 2005 15:07:34 +0000
Subject: mapdrive should not bother same_entries()

---
 perl-install/bootloader.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index a8265f61d..866c71443 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -355,9 +355,7 @@ sub same_entries {
     my ($a, $b) = @_;
 
     foreach (uniq(keys %$a, keys %$b)) {
-	if ($_ eq 'label') {
-	    next;
-	} elsif ($_ eq 'append') {
+	if (member($_, 'label', 'append', 'mapdrive') {
 	    next;
 	} else {
 	    next if $a->{$_} eq $b->{$_};
-- 
cgit v1.2.1