summaryrefslogtreecommitdiffstats
path: root/perl-install/bootloader.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-03 13:59:51 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-03 13:59:51 +0000
commitf91b638be5ee12d0897419272cda6cc8759f6365 (patch)
tree687cc2bd9c6cc5a119d838dc543eabe3534f2750 /perl-install/bootloader.pm
parent7d4b1b40153f3a53b07552d34281fa7d00f83f55 (diff)
downloaddrakx-f91b638be5ee12d0897419272cda6cc8759f6365.tar
drakx-f91b638be5ee12d0897419272cda6cc8759f6365.tar.gz
drakx-f91b638be5ee12d0897419272cda6cc8759f6365.tar.bz2
drakx-f91b638be5ee12d0897419272cda6cc8759f6365.tar.xz
drakx-f91b638be5ee12d0897419272cda6cc8759f6365.zip
use run_or_die
Diffstat (limited to 'perl-install/bootloader.pm')
-rw-r--r--perl-install/bootloader.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index 20ee4ae75..31fda5d4e 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -84,7 +84,7 @@ sub mkbootdisk($$$;$) {
} else {
push @l, "--bios", 0, if $dev !~ /fd/;
}
- run_program::rooted($prefix, @l, "--device", "/dev/$dev", $kernelVersion) or die "mkbootdisk failed";
+ run_program::rooted_or_die($prefix, @l, "--device", "/dev/$dev", $kernelVersion);
}
sub read($$) {
@@ -613,7 +613,7 @@ sub install_lilo($$) {
log::l("stage2 of lilo used is " . readlink "$prefix/boot/boot.b");
log::l("Installing boot loader...");
$::testing and return;
- run_program::rooted($prefix, "lilo", "2>", "/tmp/.error") or die "lilo failed";
+ run_program::rooted_or_die($prefix, "lilo", "2>", "/tmp/.error");
unlink "$prefix/tmp/.error";
}