##
(%ch) = rfork_list_children(1);
####
sub rfork_list_children {
my ($use_hash) = @_;
if(!$Ext::Fork::POOL->{cidlist}){
return;
}
if($use_hash){
return %{ $Ext::Fork::POOL->{cidlist} };
} else {
return keys %{ $Ext::Fork::POOL->{cidlist} };
}
}