From 053afcc049b1ef0adbf71f90980d762738507b7f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 5 Feb 2011 06:26:26 +0000
Subject: [PATCH] fix cpu/mem sucking when service labels are very long,
 RT#11452

---
 FS/FS/cust_pkg.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm
index bf4136241..fcfd7e956 100644
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -2192,7 +2192,8 @@ sub _labels_short {
         while ( @values ) {
           my $detail = "$label: ";
           $detail .= shift(@values). ', '
-            while @values && length($detail.$values[0]) < 78;
+            while @values
+               && ( length($detail.$values[0]) < 78 || $detail eq "$label: " );
           $detail =~ s/, $//;
           push @labels, $detail;
         }
-- 
2.11.0