From 103ec880cbbcbc2d36131319fa22edbfe6d54069 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 25 Jun 2004 05:31:05 +0000 Subject: - adapt to new bootloader.pm - simplify --- perl-install/install_any.pm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index a6fb37839..8ce4ce1a3 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -627,13 +627,10 @@ sub setupFB { $vga ||= 785; #- assume at least 640x480x16. require bootloader; - #- update bootloader entries with vga, all kernel are now framebuffer. - foreach (qw(vmlinuz vmlinuz-secure vmlinuz-smp vmlinuz-hack)) { - if (my $e = bootloader::get("/boot/$_", $o->{bootloader})) { - $e->{vga} = $vga; - } + foreach (@{$o->{bootloader}{entries}}) { + $_->{vga} = $vga if $_->{vga}; #- replace existing vga= with } - bootloader::install($o->{bootloader}, $o->{fstab}, $o->{all_hds}{hds}); + bootloader::install($o->{bootloader}, $o->{all_hds}{hds}); 1; } -- cgit v1.2.1