From fbc45ca35ec37193c98efe2e804278b26ef34eb6 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 19 May 2003 14:12:31 +0000 Subject: fix #3560 (drakboot not updating bootloader label): the only confusing bug is that when one come back to drakboot main window after having altered the bootloader, the main window still list the old bootloader as the current bootloader. let update this label. btw consolidate bootloader detection in bootloader::detect_bootloader() --- perl-install/bootloader.pm | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'perl-install/bootloader.pm') diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm index e6428ae92..c685b86d1 100644 --- a/perl-install/bootloader.pm +++ b/perl-install/bootloader.pm @@ -593,6 +593,10 @@ wait %d seconds for default boot. $bootloader->{method} = first(method_choices($fstab, $bootloader)); } +sub detect_bootloader() { + chomp_(run_program::rooted_get_stdout($::prefix, 'detectloader')); +} + sub method_choices { my ($fstab, $bootloader) = @_; my %choices = ( -- cgit v1.2.1