die in bootloader step if selected kernel does not exist

1 files changed, 5 insertions, 0 deletions

diff --git a/draklive b/draklive
index 327b890..9615b04 100755
--- a/draklive
+++ b/draklive
@@ -477,6 +477,11 @@ sub create_initrd {
 
 sub create_bootloader {
     my ($live) = @_;
+
+    my $kernel = $live->find_kernel;
+    my $vmlinuz_long = '/boot/vmlinuz-' . $kernel;
+    -e $live->get_system_root . $vmlinuz_long or die "can not find kernel $kernel\n";
+
     if (need_media_specific_boot($live)) {
         create_media_bootloader($live);
     } else {