From 21b72b3848b27a2d71c88b8833a365cec4fb7325 Mon Sep 17 00:00:00 2001 From: Lebbeous Fogle-Weekley Date: Wed, 21 Mar 2012 10:03:18 -0400 Subject: [PATCH] TPAC: suppress warning about splice() when the array in question is too short Signed-off-by: Lebbeous Fogle-Weekley Signed-off-by: Dan Scott --- Open-ILS/src/perlmods/lib/OpenILS/WWW/EGCatLoader/Search.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 ecf8ef0b04..5c13a83414 100644 --- 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", -- 2.43.2