353 |
} |
} |
354 |
} |
} |
355 |
|
|
356 |
sub setupFB { |
sub change_bootloader_config { |
357 |
my ($bios_vga_mode) = @_; |
my ($do, @do_params) = @_; |
358 |
|
|
359 |
require bootloader; |
require bootloader; |
360 |
my ($bootloader, $all_hds); |
my ($bootloader, $all_hds); |
372 |
$bootloader = bootloader::read($all_hds) or return; |
$bootloader = bootloader::read($all_hds) or return; |
373 |
} |
} |
374 |
|
|
375 |
foreach (@{$bootloader->{entries}}) { |
$do->($bootloader, @do_params) or return; |
|
$_->{vga} = $bios_vga_mode if $_->{vga}; #- replace existing vga= with |
|
|
} |
|
376 |
|
|
|
bootloader::update_splash($bootloader); |
|
377 |
bootloader::action($bootloader, 'write', $all_hds); |
bootloader::action($bootloader, 'write', $all_hds); |
378 |
bootloader::action($bootloader, 'when_config_changed'); |
bootloader::action($bootloader, 'when_config_changed'); |
379 |
|
1; |
380 |
|
} |
381 |
|
|
382 |
|
sub setupFB { |
383 |
|
my ($bios_vga_mode) = @_; |
384 |
|
|
385 |
|
change_bootloader_config( |
386 |
|
sub { |
387 |
|
my ($bootloader, $bios_vga_mode) = @_; |
388 |
|
foreach (@{$bootloader->{entries}}) { |
389 |
|
$_->{vga} = $bios_vga_mode if $_->{vga}; #- replace existing vga= with |
390 |
|
} |
391 |
|
bootloader::update_splash($bootloader); |
392 |
|
1; |
393 |
|
}, $bios_vga_mode); |
394 |
} |
} |
395 |
|
|
396 |
1; |
1; |