chiark
/
gitweb
/
~ian
/
chiark-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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 6527b7974b82b01f723ac93fb3c908e1131c126c..afcf50e380a33fb71c1661ef14b2632aaef40ab1 100644
(file)
--- 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 $rbits = '';
vec($rbits, fileno(LISTEN), 1) = 1;
my $ebits = $rbits;
- my $nfound = select($rbits, '', $ebits, ($opts{check_interval} //
3
00));
+ my $nfound = select($rbits, '', $ebits, ($opts{check_interval} //
864
00));
if ($nfound) {
if (accept(CALL, LISTEN)) {
if ($nfound) {
if (accept(CALL, LISTEN)) {