From 8716ef696a1158aa074e3cc2b4cf191c3afbf0e5 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau 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(-) (limited to 'perl-install') 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