From 4c13d0350d0d8800d3899692660e5138558b825b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 4 Aug 2004 03:03:37 +0000 Subject: don't allow unknown kernel names to mess everything --- 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 cf2fbcb56..55be9fb51 100755 --- a/perl-install/standalone/bootloader-config +++ b/perl-install/standalone/bootloader-config @@ -98,7 +98,7 @@ sub remove_kernel() { sub add_kernel() { bootloader::create_link_source(); - my $kernel_str = bootloader::vmlinuz2kernel_str($image); + 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 %opts = ( -- cgit v1.2.1