summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-03-03 13:45:24 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-03-03 13:45:24 +0000
commit7d4b1b40153f3a53b07552d34281fa7d00f83f55 (patch)
tree89be246fee31d9c74b77d9703164191a899931e4
parent091353cf267810593f5c72f014a8d9a6a0d0fbc9 (diff)
downloaddrakx-7d4b1b40153f3a53b07552d34281fa7d00f83f55.tar
drakx-7d4b1b40153f3a53b07552d34281fa7d00f83f55.tar.gz
drakx-7d4b1b40153f3a53b07552d34281fa7d00f83f55.tar.bz2
drakx-7d4b1b40153f3a53b07552d34281fa7d00f83f55.tar.xz
drakx-7d4b1b40153f3a53b07552d34281fa7d00f83f55.zip
(run_or_die, rooted_or_die): created
-rw-r--r--perl-install/run_program.pm10
1 files changed, 9 insertions, 1 deletions
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) = @_;