From 3eb9352aabb1e04711bd233fbeed468fe3736aa0 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Mon, 6 Jan 2014 21:45:48 -0800 Subject: [PATCH] fix perf edge case with multiple large packages not just one, RT#26097 --- FS/FS/cust_main/Packages.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/FS/FS/cust_main/Packages.pm b/FS/FS/cust_main/Packages.pm index 3c96fc733..9fdf22e6b 100644 --- a/FS/FS/cust_main/Packages.pm +++ b/FS/FS/cust_main/Packages.pm @@ -333,6 +333,7 @@ sub sort_packages { return 0 if !$a_num_cust_svc && !$b_num_cust_svc; return -1 if $a_num_cust_svc && !$b_num_cust_svc; return 1 if !$a_num_cust_svc && $b_num_cust_svc; + return 0 if $a_num_cust_svc + $b_num_cust_svc > 20; #for perf, just give up my @a_cust_svc = $a->cust_svc_unsorted; my @b_cust_svc = $b->cust_svc_unsorted; return 0 if !scalar(@a_cust_svc) && !scalar(@b_cust_svc); -- 2.11.0