From f91b638be5ee12d0897419272cda6cc8759f6365 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 3 Mar 2001 13:59:51 +0000
Subject: use run_or_die

---
 perl-install/bootloader.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/bootloader.pm')

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";
 }
 
-- 
cgit v1.2.1