summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-07-25 15:25:50 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-07-25 15:25:50 +0000
commit830c414dd3c6eb3e3371e7306412d181b6cf2408 (patch)
treef02bf724493d6e9f9eb5ca19f4d7108ee01aec83 /perl-install/bootloader.pm
parent29a617a0385e327a329a8cf20b6778f487de7115 (diff)
downloaddrakx-830c414dd3c6eb3e3371e7306412d181b6cf2408.tar
drakx-830c414dd3c6eb3e3371e7306412d181b6cf2408.tar.gz
drakx-830c414dd3c6eb3e3371e7306412d181b6cf2408.tar.bz2
drakx-830c414dd3c6eb3e3371e7306412d181b6cf2408.tar.xz
drakx-830c414dd3c6eb3e3371e7306412d181b6cf2408.zip
let the bootloader::mkinitrd error be seen by the GUI
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm7
1 files changed, 2 insertions, 5 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index a0b18f69a..30ad4ea4d 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -168,7 +168,7 @@ sub add_kernel {
-e "$prefix/boot/vmlinuz-$version" or log::l("unable to find kernel image $prefix/boot/vmlinuz-$version"), return;
my $image = "/boot/vmlinuz" . ($ext ne "-$version" &&
symlinkf("vmlinuz-$version", "$prefix/boot/vmlinuz$ext") ? $ext : "-$version");
- my $initrd = eval {
+ my $initrd = do {
mkinitrd($prefix, $version, "/boot/initrd-$version.img");
"/boot/initrd" . ($ext ne "-$version" &&
symlinkf("initrd-$version.img", "$prefix/boot/initrd$ext.img") ? $ext : "-$version") . ".img";
@@ -241,10 +241,7 @@ sub configure_entry($$) {
if ($specific_version) {
$entry->{initrd} or $entry->{initrd} = "/boot/initrd-$specific_version.img";
- if (! -e "$prefix/$entry->{initrd}" || $::oem) {
- eval { mkinitrd($prefix, $specific_version, "$entry->{initrd}") };
- undef $entry->{initrd} if $@;
- }
+ mkinitrd($prefix, $specific_version, $entry->{initrd});
}
}
$entry;