summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-06-06 04:44:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-06-06 04:44:57 +0000
commit8d386af91d0e8edf32e658f03c49e290e9e28d70 (patch)
tree0dccaf6fc7eb7366da2f9fa98f815b910c6579c2 /perl-install/bootloader.pm
parent807ee814a606880268dc2cd6fd7b1837b5181d05 (diff)
downloaddrakx-8d386af91d0e8edf32e658f03c49e290e9e28d70.tar
drakx-8d386af91d0e8edf32e658f03c49e290e9e28d70.tar.gz
drakx-8d386af91d0e8edf32e658f03c49e290e9e28d70.tar.bz2
drakx-8d386af91d0e8edf32e658f03c49e290e9e28d70.tar.xz
drakx-8d386af91d0e8edf32e658f03c49e290e9e28d70.zip
rewrite before adding more
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm12
1 files changed, 9 insertions, 3 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 729ed2712..24e8f9e79 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -323,9 +323,15 @@ sub read_lilo() {
$_;
}
- $_->{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};
+ foreach ('append', 'default') {
+ $b{$_} = remove_quotes_and_spaces($b{$_}) if $b{$_};
+ }
+ foreach my $entry (@{$b{entries}}) {
+ foreach ('append', 'label') {
+ $entry->{$_} = remove_quotes_and_spaces($entry->{$_}) if $entry->{$_};
+ }
+ }
+
if (arch() =~ /ppc/) {
$b{method} = 'yaboot';
} else {