From 8d386af91d0e8edf32e658f03c49e290e9e28d70 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 6 Jun 2005 04:44:57 +0000
Subject: rewrite before adding more

---
 perl-install/bootloader.pm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'perl-install/bootloader.pm')

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 {
-- 
cgit v1.2.1