From 9bca6157d6ae81eaacb4eee93757d700240a6de7 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Mon, 6 Jan 2014 21:30:51 -0800 Subject: [PATCH] fix perf edge case with multiple large packages not just one, RT#26097 --- FS/FS/cust_main/Packages.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/FS/FS/cust_main/Packages.pm b/FS/FS/cust_main/Packages.pm index 57c4e5249..3c96fc733 100644 --- a/FS/FS/cust_main/Packages.pm +++ b/FS/FS/cust_main/Packages.pm @@ -333,8 +333,8 @@ 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; - my @a_cust_svc = $a->cust_svc; - my @b_cust_svc = $b->cust_svc; + 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); return -1 if scalar(@a_cust_svc) && !scalar(@b_cust_svc); return 1 if !scalar(@a_cust_svc) && scalar(@b_cust_svc); -- 2.11.0