summaryrefslogtreecommitdiffstats
path: root/perl-install/run_program.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-12-07 13:53:02 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-12-07 13:53:02 +0000
commit3e881183d59b7fe80b703dfa269851e3cbf35302 (patch)
treeb22428f4a80e2735a43fe64e141fe3ad6bf72bb1 /perl-install/run_program.pm
parent47e95567a695046e6ca3b6020345f71f400e2102 (diff)
downloaddrakx-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.pm5
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] =~ /^>>?$/;