From e14d638b98174c5935bfa4110be551b48a207a9d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sun, 16 Jan 2005 15:22:23 +0000
Subject: fix syntax error

---
 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 866c71443..64d1d2e25 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -355,7 +355,7 @@ sub same_entries {
     my ($a, $b) = @_;
 
     foreach (uniq(keys %$a, keys %$b)) {
-	if (member($_, 'label', 'append', 'mapdrive') {
+	if (member($_, 'label', 'append', 'mapdrive')) {
 	    next;
 	} else {
 	    next if $a->{$_} eq $b->{$_};
-- 
cgit v1.2.1