Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
      $pm->finish;
   }
}
  2. or download this
      $s->wait_children;
  if ($s->{max_proc}) {
    my $pid=fork();
  3. or download this
      $s->wait_children;
  $s->pre_fork;
  if ($s->{max_proc}) {
    my $pid=fork();
  4. or download this
    sub run_pre_fork { my ($s,$code)=@_;
  $s->{pre_fork}=$code;
...
sub pre_fork { my ($s)=@_;
  $s->{pre_fork}->() if ref($s->{pre_fork}) eq 'CODE';
}