From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 11 Aug 2022 20:40:15 +0000 (+0100)
Subject: prefork-interp: increase check interval quite a bit
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=commitdiff_plain;h=5a2884f1fc137801a04380531d42c68547f2eef0;p=chiark-utils.git

prefork-interp: increase check interval quite a bit

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index 6527b79..afcf50e 100644
--- a/perl/Prefork.pm
+++ b/perl/Prefork.pm
@@ -191,7 +191,7 @@ sub initialisation_complete {
     my $rbits = '';
     vec($rbits, fileno(LISTEN), 1) = 1;
     my $ebits = $rbits;
-    my $nfound = select($rbits, '', $ebits, ($opts{check_interval} // 300));
+    my $nfound = select($rbits, '', $ebits, ($opts{check_interval} // 86400));
 
     if ($nfound) {
       if (accept(CALL, LISTEN)) {