LP1689576: Fix ALARM -> ALRM Typo user/jboyer/LP1689576_SIGALRM
authorJason Boyer <jboyer@library.in.gov>
Tue, 9 May 2017 15:07:46 +0000 (11:07 -0400)
committerJason Boyer <jboyer@library.in.gov>
Tue, 9 May 2017 15:29:53 +0000 (11:29 -0400)
In Biblio.pm, when trying to set a timeout handler for $SIG{ALARM}
a warning is dropped in the logs to this effect:
"No such signal: SIGALARM at
/usr/local/share/perl/5.18.2/OpenILS/Application/Search/Biblio.pm
line 1411"
When using $SIG{ALRM} instead the handler is set as expected.

Signed-off-by: Jason Boyer <jboyer@library.in.gov>
Open-ILS/src/perlmods/lib/OpenILS/Application/Search/Biblio.pm

index 014d250..670076b 100644 (file)
@@ -1408,7 +1408,7 @@ sub retrieve_cached_facets {
     return undef unless ($key and $key =~ /_facets$/);
 
     eval {
-        local $SIG{ALARM} = sub {die};
+        local $SIG{ALRM} = sub {die};
         alarm(2); # we'll sleep for as much as 2s
         do {
             die if $cache->get_cache($key . '_COMPLETE');