From c18d91d6fdf8fad5a4a1185545f4a6fbb3008fe2 Mon Sep 17 00:00:00 2001 From: Bill Erickson Date: Fri, 26 Aug 2022 13:39:38 -0400 Subject: [PATCH] LP1987873 Perl Services Wake for Idle Maintenance Allow Perl Listeners to regularly wake up and perform idle child maintence as long as any activity is occurring or other child maintenance is just occurred. Signed-off-by: Bill Erickson --- src/perl/lib/OpenSRF/Server.pm | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/perl/lib/OpenSRF/Server.pm b/src/perl/lib/OpenSRF/Server.pm index 52c53d2..8f6b0e0 100644 --- a/src/perl/lib/OpenSRF/Server.pm +++ b/src/perl/lib/OpenSRF/Server.pm @@ -166,8 +166,6 @@ sub run { my $msg = shift(@max_children_msg_queue); - # no pending message, so wait for the next one forever - $from_network = $wait_time = -1 if (!$msg); $msg ||= $self->{osrf_handle}->process($wait_time); !$from_network and $chatty and $logger->debug("server: attempting to process previously queued message"); -- 2.11.0