From: Mike Rylander <mrylander@gmail.com>
Date: Wed, 1 Nov 2017 22:22:21 +0000 (-0400)
Subject: LP#1704396: reset the facet alarm timer
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=938c5eab51d1223076e9a6bb667d2bf63f7be8db;p=evergreen%2Fpines.git

LP#1704396: reset the facet alarm timer

When using alarm() one must reset the timer via alarm(0) or incur the wrath
of the spurious signal.

Signed-off-by: Mike Rylander <mrylander@gmail.com>
Signed-off-by: Jason Stephenson <jason@sigio.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Biblio.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Biblio.pm
index 4a0336d125..06ec97d92d 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Biblio.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Biblio.pm
@@ -1364,11 +1364,13 @@ sub retrieve_cached_facets {
 
     eval {
         local $SIG{ALRM} = sub {die};
-        alarm(4); # we'll sleep for as much as 4s
+        alarm(10); # we'll sleep for as much as 10s
         do {
             die if $cache->get_cache($key . '_COMPLETE');
         } while (sleep(0.05));
+        alarm(0);
     };
+    alarm(0);
 
     my $blob = $cache->get_cache($key) || {};