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} };
        }
}