diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-10-25 22:59:18 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-10-25 22:59:18 +0000 |
| commit | d80182fb067de110a09af88969ab9844e11ce21d (patch) | |
| tree | 93726966b4a51341fca6fa8d4bc290ed35f402f1 /perl-install/run_program.pm | |
| parent | 31ad0827997c40a6471cbe0eddc3b89534d07323 (diff) | |
| download | drakx-d80182fb067de110a09af88969ab9844e11ce21d.tar drakx-d80182fb067de110a09af88969ab9844e11ce21d.tar.gz drakx-d80182fb067de110a09af88969ab9844e11ce21d.tar.bz2 drakx-d80182fb067de110a09af88969ab9844e11ce21d.tar.xz drakx-d80182fb067de110a09af88969ab9844e11ce21d.zip | |
no_comment
Diffstat (limited to 'perl-install/run_program.pm')
| -rw-r--r-- | perl-install/run_program.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm index 7e91437e7..593b270d8 100644 --- a/perl-install/run_program.pm +++ b/perl-install/run_program.pm @@ -13,6 +13,9 @@ sub rooted { my ($root, $name, @args) = @_; my $str = ref $name ? $name->[0] : $name; log::l("running: $str @args" . ($root ? " with root $root" : "")); + + return 1 if $root && $<; + $root ? $root .= '/' : ($root = ''); fork and wait, return $? == 0; |