From 8716ef696a1158aa074e3cc2b4cf191c3afbf0e5 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Mon, 24 Sep 2001 16:30:57 +0000
Subject: fix add_append (there was a ) at the end of the parameter value)

---
 perl-install/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 633e7ee7a..a11d13ace 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -177,7 +177,7 @@ sub add_append {
 
     foreach ({ append => $b->{perImageAppend} }, @{$b->{entries}}) {
 	$_->{append} =~ s/\b$key=\S*\s*//;
-	$_->{append} =~ s/\s*$/ $key=$val)/ if $val;
+	$_->{append} =~ s/\s*$/ $key=$val/ if $val;
     }
 }
 
-- 
cgit v1.2.1