X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FUser.pm;h=3b90ec4147c3b095729b84733ea19daa732d6fbd;hb=77e37a756d57657710291a3a6a99e9d77ea468b5;hp=c091031ec1dbebd24e589b276d45cdcfe3338dc3;hpb=660edfba2fd6ff066dee6ed0c4ad857ff839b1b4;p=debbugs.git

diff --git a/Debbugs/User.pm b/Debbugs/User.pm
index c091031..3b90ec4 100644
--- a/Debbugs/User.pm
+++ b/Debbugs/User.pm
@@ -400,7 +400,7 @@ Wraps a line to a specific length by splitting at commas
 
 sub _wrap_to_length {
     my ($content,$line_length) = @_;
-    my $current_line_length;
+    my $current_line_length = 0;
     my $result = "";
     while ($content =~ m/^([^,]*,\s*)(.*)$/ || $content =~ m/^([^,]+)()$/) {
         my $current_word = $1;