sub loader_process_reaper { use POSIX qw/:sys_wait_h/; while ((my $pid = waitpid(-1, WNOHANG)) != -1) { if (WIFEXITED($?)) { $domain_loaders{$pid}{SYSTEM_STATUS} = WEXITSTATUS($?); $domain_loaders{$pid}{LOADER_STATUS} = RETURNED; } } }