Are you making potential zombies? Otherwise it should reparent it just up 1 level in the process tree that spawned it.

Have you seen the "f" switch for the ps command? It shows the "forrest" view of the process tree. Look at it, before and after B finishes, and see if the branch of the forest gets moved. Proc::Killfam will kill everything that branches off of the pid handed to it.

You should be able to find the pid of the highest related process up the tree branch, and run Killfam on it, to get all the programs and associated shells.

But maybe you have hit on an odd behavior?

Here is an old manual routine that may help you.

#!/usr/bin/perl
use warnings;
use strict;

#robau
#This subroutine takes two arguments, the parent process ID 
#and the numeric signal to pass to the processes 
#(which would be 9 if you wanted to issue a -TERM). 
#Using Proc::Process you could find the process ID 
#of the process login -- zentara with something similar 
#to the following :

#my $proc = Proc::ProcessTable->new;
#my @ps = map { $_->pid if ($_->cmndline =~ /login -- zentara/) } @{$p
+roc->table};
#&killchd($_, 9) foreach @ps;

&killchd(9895, 9);
#kill -9  process 9895

sub killchd ($;$) {
use Proc::ProcessTable;
my $sig = ($_[1] =~ /^\-?\d+$/) ? $_[1] : 0;
my $proc = Proc::ProcessTable->new;
my %fields = map { $_ => 1 } $proc->fields;
return undef unless exists $fields{'ppid'};
foreach (@{$proc->table}) {
kill $sig, $_->pid if ($_->ppid == $_[0]);
};
kill $sig, $_[0];
};
[download]