From 4d4d4ac3c15d8449b40cfc2492d0f2685d1a4978 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 6 Jan 2003 18:31:26 +0000 Subject: when reading existing config, remove double quotes around the default label --- perl-install/bootloader.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install') diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index bf36741ca..ee6378cdb 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -125,6 +125,7 @@ sub read() { } $_->{append} = remove_quotes_and_spaces($_->{append}) foreach \%b, @{$b{entries}}; $_->{label} = remove_quotes_and_spaces($_->{label}) foreach @{$b{entries}}; + $b{default} = remove_quotes_and_spaces($b{default}) if $b{default}; $b{timeout} = $b{timeout} / 10 if $b{timeout}; $b{message} = cat_("$::prefix$b{message}") if $b{message}; } -- cgit v1.2.1