From 9e04bc317e1c53e7895b26248270e808d96aa1c2 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux 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/standalone') 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