summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-09-15 18:04:01 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-09-15 18:04:01 +0000
commit728fe7b3972fd51a90bafec8576b6ac2ff2ed8c2 (patch)
treef9ecf6c420db9e59b900ec70611ac1c0e372cf97 /perl-install/bootloader.pm
parentbdbaca5db5f1c8bd30de9c786375fdb5185ff71f (diff)
downloaddrakx-728fe7b3972fd51a90bafec8576b6ac2ff2ed8c2.tar
drakx-728fe7b3972fd51a90bafec8576b6ac2ff2ed8c2.tar.gz
drakx-728fe7b3972fd51a90bafec8576b6ac2ff2ed8c2.tar.bz2
drakx-728fe7b3972fd51a90bafec8576b6ac2ff2ed8c2.tar.xz
drakx-728fe7b3972fd51a90bafec8576b6ac2ff2ed8c2.zip
find error in /tmp/.error only if exception is "xxx failed"
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm7
1 files changed, 3 insertions, 4 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 49d8ee5fc..4929ee59b 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -538,7 +538,7 @@ sub install_yaboot($$$) {
if (defined $install_steps_interactive::new_bootstrap) {
run_program::run("hformat", "$lilo->{boot}") or die "hformat failed";
}
- run_program::rooted($prefix, "/sbin/ybin", "2>", "/tmp/.error") or die "ybin failed";
+ run_program::rooted_or_die($prefix, "/sbin/ybin", "2>", "/tmp/.error");
unlink "$prefix/tmp/.error";
}
@@ -607,8 +607,7 @@ sub install_silo($$$) {
log::l("Installing boot loader...");
$::testing and return;
run_program::rooted($prefix, "silo", "2>", "/tmp/.error", $silo->{use_partition} ? ("-t") : ()) or
- run_program::rooted($prefix, "silo", "2>", "/tmp/.error", "-p", "2", $silo->{use_partition} ? ("-t") : ()) or
- die "silo failed";
+ run_program::rooted_or_die($prefix, "silo", "2>", "/tmp/.error", "-p", "2", $silo->{use_partition} ? ("-t") : ());
unlink "$prefix/tmp/.error";
#- try writing in the prom.
@@ -863,7 +862,7 @@ sub install_grub {
log::l("Installing boot loader...");
$::testing and return;
symlink "$prefix/boot", "/boot";
- run_program::run("sh", $f) or die "grub installation failed";
+ run_program::run_or_die("sh", $f);
unlink "$prefix/tmp/.error.grub", "/boot";
}