From 354186e210c550f7d7627d61ef02466c6b3d35bd Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 17 Aug 2004 03:46:00 +0000 Subject: better error handling --- perl-install/standalone/bootloader-config | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone/bootloader-config') diff --git a/perl-install/standalone/bootloader-config b/perl-install/standalone/bootloader-config index b6bec9dd6..9e21d1ee9 100755 --- a/perl-install/standalone/bootloader-config +++ b/perl-install/standalone/bootloader-config @@ -99,7 +99,7 @@ sub add_kernel() { my $kernel_str = bootloader::vmlinuz2kernel_str($image) or die "bad kernel name $image\n"; - my $root_part = fs::get::root([ fs::get::fstab($all_hds) ]); + my $root_part = fs::get::root([ fs::get::fstab($all_hds) ]) or die "can't find root partition\n"; my %opts = ( root => "/dev/$root_part->{device}", initrd_options => $initrd_options, -- cgit v1.2.1