From 95bea5564bc06ae02aa351bc1da43308e0f777d9 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 5 Feb 2011 06:25:56 +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 c183a4938..b3ed2f29a 100644
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -2195,7 +2195,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