Second parameter to reap() is the limit (in seconds) to wait for a child

Defaults to 3 seconds. Signed-off-by: Pedro Melo <melo@simplicidade.org>
PerlRedis · Jan 22, 2013 · b9d966a · b9d966a
1 parent e61c532
commit b9d966a
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/t/tlib/Test/SpawnRedisServer.pm b/t/tlib/Test/SpawnRedisServer.pm
@@ -108,11 +108,12 @@ sub spawn_server {
 }
 
 sub reap {
-  my ($pid) = @_;
-  $pid = -1 unless $pid;
+  my ($pid, $limit) = @_;
+  $pid   = -1 unless $pid;
+  $limit = 3  unless $limit;
 
   my $try = 0;
-  while ($try++ < 3) {
+  while ($try++ < $limit) {
     my $ok = waitpid($pid, WNOHANG);
     $try = 0, last if $ok > 0;
     sleep(1);