From 7d4b1b40153f3a53b07552d34281fa7d00f83f55 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 3 Mar 2001 13:45:24 +0000
Subject: (run_or_die, rooted_or_die): created

---
 perl-install/run_program.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'perl-install')

diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm
index 293910cb8..8f2f18051 100644
--- a/perl-install/run_program.pm
+++ b/perl-install/run_program.pm
@@ -7,7 +7,15 @@ use log;
 
 1;
 
-sub run($@) { rooted('', @_) }
+sub run_or_die {
+    my ($name, @args) = @_;
+    run($name, @args) or die "$name failed\n";
+}
+sub rooted_or_die {
+    my ($root, $name, @args) = @_;
+    rooted($root, $name, @args) or die "$name failed\n";
+}
+sub run { rooted('', @_) }
 
 sub rooted {
     my ($root, $name, @args) = @_;
-- 
cgit v1.2.1