From 5a2884f1fc137801a04380531d42c68547f2eef0 Mon Sep 17 00:00:00 2001
From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Thu, 11 Aug 2022 21:40:15 +0100
Subject: [PATCH] prefork-interp: increase check interval quite a bit

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---
 perl/Prefork.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)) {
-- 
2.30.2