-Fix problem where systems management commands to more than worth of BMCs would fail

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1909 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2008-07-21 17:34:17 +00:00
parent 5474d28875
commit c949397752

View File

@ -4753,7 +4753,7 @@ sub process_request {
$SIG{CHLD} = sub {my $kpid; do { $kpid = waitpid(-1, WNOHANG); if ($kpid > 0) { delete $bmc_comm_pids{$kpid}; $children--; } } while $kpid > 0; };
my $sub_fds = new IO::Select;
foreach (@donargs) {
while ($children > $ipmimaxp) { sleep (0.1); }
while ($children > $ipmimaxp) { forward_data($callback,$sub_fds); }
$children++;
my $cfd;
my $pfd;