From 9e04bc317e1c53e7895b26248270e808d96aa1c2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 28 Jun 2005 05:09:17 +0000
Subject: handle no bootloader configuration found with a clean error

---
 perl-install/standalone/drakboot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index 5c3dac568..156985f8c 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -42,7 +42,7 @@ my $all_hds = fsedit::get_hds();
 fs::get_raw_hds('', $all_hds);
 fs::get_info_from_fstab($all_hds);
 my $fstab = [ fs::get::fstab($all_hds) ];
-my $bootloader = bootloader::read($all_hds);
+my $bootloader = bootloader::read($all_hds) or die "no bootloader found\n";
 my $cmdline = cat_('/proc/cmdline');
 
 if (!$in->isa('interactive::gtk') || any { /^--boot$/ } @ARGV) {
-- 
cgit v1.2.1