GRID-Cluster
view release on metacpan or search on metacpan
lib/GRID/Cluster.pm view on Meta::CPAN
173174175176177178179180181182183184185186187188189190191192193
(
$proc
[
$counter
],
$pid
[
$counter
]) =
$m
->
open
(
shift
@commands
);
$proc
[
$counter
]->blocking(1);
$map_id_machine
{
$counter
} =
$_
;
$readset
->add(
$proc
[
$counter
]);
my
$address
= 0 +
$proc
[
$counter
];
$id
{
$address
} =
$counter
;
$counter
++;
# See if all workers are busy, if so wait for one to finish
last
if
((
$counter
>
$lp
) || (
$counter
>=
$self
->get_max_np()));
}
last
if
((
$counter
>
$lp
) || (
$counter
>=
$self
->get_max_np()));
}
my
$count
= 0;
my
@ready
;
my
@result
;
do
{
( run in 0.329 second using v1.01-cache-2.11-cpan-8d75d55dd25 )