From e08dc441d98b98643d5108ce8c189fcf12693e0c Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Mon, 6 Jan 2014 21:45:45 -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 847ac05a7..9899bd031 100644 --- a/FS/FS/cust_main/Packages.pm +++ b/FS/FS/cust_main/Packages.pm @@ -501,6 +501,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