Merge pull request #45 from azrle/master

fix: ensure sleep KILL_OLD_DELAY
kazuho · Oct 28, 2016 · f10c90f · f10c90f
2 parents 787d78b + f076c13
commit f10c90f
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Server/Starter.pm b/lib/Server/Starter.pm
@@ -389,7 +389,9 @@ sub start_server {
             my $kill_old_delay = defined $ENV{KILL_OLD_DELAY} ? $ENV{KILL_OLD_DELAY} : $ENV{ENABLE_AUTO_RESTART} ? 5 : 0;
             if ($kill_old_delay != 0) {
                 print STDERR "sleeping $kill_old_delay secs before killing old workers\n";
-                sleep $kill_old_delay;
+                while ($kill_old_delay > 0) {
+                    $kill_old_delay -= sleep $kill_old_delay || 1;
+                }
             }
             print STDERR "killing old workers\n";
             kill $opts->{signal_on_hup}, $_