Lines Matching refs:pid
216 my $pid;
249 $pid = open(STDIN, "$execcmd 2>&1 |") or die "Failed to $execcmd: $!\n";
250 $self->{real_serverpid} = $pid;
265 waitpid($pid, 0);
274 $pid = undef;
277 $pid = $h->GetProcessID();
283 if (defined($pid = fork)) {
284 $pid or exec("$^X -ne print") or exit($!);
294 if (!defined($pid)) {
299 $self->{serverpid} = $pid;
315 my $pid;
342 if (!($pid = open(STDOUT, "| $execcmd"))) {
347 $self->{clientpid} = $pid;
436 my $pid;
438 $pid = $self->{serverpid};
439 print "Waiting for 'perl -ne print' process to close: $pid...\n";
440 $pid = waitpid($pid, 0);
441 if ($pid > 0) {
443 } elsif ($pid == 0) {
447 $pid = $self->{real_serverpid};
448 print "Waiting for s_server process to close: $pid...\n";
450 waitpid($pid, 0);
459 $pid = $self->{clientpid};
460 print "Waiting for s_client process to close: $pid...\n";
461 waitpid($pid, 0);