TPAC: suppress warning about splice() when the array in question is too short

Signed-off-by: Lebbeous Fogle-Weekley <lebbeous@esilibrary.com>
Signed-off-by: Dan Scott <dan@coffeecode.net>

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
index ecf8ef0..5c13a83 100644 (file)
--- a/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm
@@ -657,7 +657,7 @@ sub staff_save_search {
 
     unshift @$list, $query unless $already{$query};
 
-    splice @$list, $sss_size;
+    splice @$list, $sss_size if scalar @$list > $sss_size;
 
     $cache_key = $U->simplereq(
         "open-ils.actor",