view release on metacpan or  search on metacpan

t/mitm.t  view on Meta::CPAN

{
  confess sprintf("Process %u has been signalled (@_) - exiting.\n",$$);
  BAIL_OUT("signalled");
  exit();
}
$SIG{TERM}=\&done;
$SIG{ALRM}=\&abort;
$SIG{INT}=\&abort;
$SIG{CLD} = "IGNORE";

sub spawn(&)
{
  my $block=shift;
  my $pid=fork();
  #printf "alarm reset %u/%d\n",$$,alarm(10);
  if(!defined $pid){
    #error
    BAIL_OUT("cannot fork: $!");
  }elsif($pid==0){
    #child
    printf "child %u spawned...\n",$$;