Help for this page

Select Code to Download

Select or download this

sub REAPER {
  my $stiff;
  while ($stiff=waitpid(-1,WNOHANG)>0) { }
}

Select or download this

sub REAPER {
  my $stiff;
  while ($stiff=waitpid(-1,WNOHANG)>0) { $waitepid+=$stiff; }
}