From 9146ab96a3ba40c78ea80155f85085b1787e0090 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 20 May 2003 09:47:03 +0000
Subject: for whatever reason, the second part of detect_bootloader()
 consolidation didn't make up into the cvs

---
 perl-install/bootloader.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index c685b86d1..351ab705b 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -612,7 +612,7 @@ sub method_choices {
         ),
     );
     my $prefered;
-    $prefered ||= 'grub' if $::isStandalone && run_program::rooted_get_stdout($::prefix, 'detectloader') =~ /GRUB/;
+    $prefered ||= 'grub' if $::isStandalone && detect_bootloader() =~ /GRUB/;
     $prefered ||= 'lilo-' . (member($bootloader->{install}, 'text', 'menu', 'graphic') ? $bootloader->{install} : 'graphic');
     my $default = exists $choices{$prefered} ? $prefered : first(keys %choices);
 
-- 
cgit v1.2.1