diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-03-03 13:45:24 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-03-03 13:45:24 +0000 |
| commit | 7d4b1b40153f3a53b07552d34281fa7d00f83f55 (patch) | |
| tree | 89be246fee31d9c74b77d9703164191a899931e4 | |
| parent | 091353cf267810593f5c72f014a8d9a6a0d0fbc9 (diff) | |
| download | drakx-backup-do-not-use-7d4b1b40153f3a53b07552d34281fa7d00f83f55.tar drakx-backup-do-not-use-7d4b1b40153f3a53b07552d34281fa7d00f83f55.tar.gz drakx-backup-do-not-use-7d4b1b40153f3a53b07552d34281fa7d00f83f55.tar.bz2 drakx-backup-do-not-use-7d4b1b40153f3a53b07552d34281fa7d00f83f55.tar.xz drakx-backup-do-not-use-7d4b1b40153f3a53b07552d34281fa7d00f83f55.zip | |
(run_or_die, rooted_or_die): created
| -rw-r--r-- | perl-install/run_program.pm | 10 |
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) = @_; |