prefork-interp: increase check interval quite a bit

[chiark-utils.git] / perl / Prefork.pm

diff --git a/perl/Prefork.pm b/perl/Prefork.pm
index 28fe3958df65686d2683223278efcb29ba399494..afcf50e380a33fb71c1661ef14b2632aaef40ab1 100644 (file)
--- a/perl/Prefork.pm
+++ b/perl/Prefork.pm
@@ -6,7 +6,7 @@ our @EXPORT = qw(initialisation_complete);
 
 use Carp;
 use Fcntl qw(F_GETFL F_SETFL O_NONBLOCK);
-use POSIX;
+use POSIX qw(_exit setsid);
 use Sys::Syslog;
 
 our $logger;
@@ -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)) {