diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-08-12 12:35:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-08-12 12:35:37 +0000 |
| commit | 107b1cbeace77c78d4885c138ca57d373a125bdf (patch) | |
| tree | 0113b4014c40039b246c3b876d0e2de93d7087cc /perl-install/run_program.pm | |
| parent | 665d9ad8aa8b8a71198ef8b6cae00e94b9244391 (diff) | |
| download | drakx-107b1cbeace77c78d4885c138ca57d373a125bdf.tar drakx-107b1cbeace77c78d4885c138ca57d373a125bdf.tar.gz drakx-107b1cbeace77c78d4885c138ca57d373a125bdf.tar.bz2 drakx-107b1cbeace77c78d4885c138ca57d373a125bdf.tar.xz drakx-107b1cbeace77c78d4885c138ca57d373a125bdf.zip | |
no_comment
Diffstat (limited to 'perl-install/run_program.pm')
| -rw-r--r-- | perl-install/run_program.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/run_program.pm b/perl-install/run_program.pm index 2973a57cc..54887f882 100644 --- a/perl-install/run_program.pm +++ b/perl-install/run_program.pm @@ -25,6 +25,9 @@ sub rooted($$@) { $root and chroot $root; chdir "/"; - exec $name, @args or log::l("exec of $name failed: $!"), exec('false') || exit(1); + unless (exec $name, @args) { + log::l("exec of $name failed: $!"); + exec('false') or exit(1); + } } } |