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 <berickxx@gmail.com>

diff --git a/src/perl/lib/OpenSRF/Server.pm b/src/perl/lib/OpenSRF/Server.pm
index 52c53d2..8f6b0e0 100644 (file)
--- 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");