diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-12-07 13:53:02 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-12-07 13:53:02 +0000 |
| commit | 3e881183d59b7fe80b703dfa269851e3cbf35302 (patch) | |
| tree | b22428f4a80e2735a43fe64e141fe3ad6bf72bb1 /perl-install/run_program.pm | |
| parent | 47e95567a695046e6ca3b6020345f71f400e2102 (diff) | |
| download | drakx-3e881183d59b7fe80b703dfa269851e3cbf35302.tar drakx-3e881183d59b7fe80b703dfa269851e3cbf35302.tar.gz drakx-3e881183d59b7fe80b703dfa269851e3cbf35302.tar.bz2 drakx-3e881183d59b7fe80b703dfa269851e3cbf35302.tar.xz drakx-3e881183d59b7fe80b703dfa269851e3cbf35302.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 40a853764..e59286ea9 100644 --- a/perl-install/run_program.pm +++ b/perl-install/run_program.pm @@ -18,7 +18,10 @@ sub rooted { $root ? $root .= '/' : ($root = ''); - fork and wait, return $? == 0; + if (my $pid = fork) { + waitpid $pid, 0; + return $? == 0; + } { my ($stdout, $stdoutm, $stderr, $stderrm); ($stdoutm, $stdout, @args) = @args if $args[0] =~ /^>>?$/; |