diff options
author | ivan <ivan> | 2011-02-05 06:25:56 +0000 |
---|---|---|
committer | ivan <ivan> | 2011-02-05 06:25:56 +0000 |
commit | 95bea5564bc06ae02aa351bc1da43308e0f777d9 (patch) | |
tree | 7d153efa55c9af6856351677651339ca144cbb9b /FS/FS/cust_pkg.pm | |
parent | bc8bc32def6ab636129c205ebd5b7db76b805ac5 (diff) |
fix cpu/mem sucking when service labels are very long, RT#11452
Diffstat (limited to 'FS/FS/cust_pkg.pm')
-rw-r--r-- | FS/FS/cust_pkg.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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; } |