set current line length to zero in wrap_to_length

diff --git a/Debbugs/User.pm b/Debbugs/User.pm
index c091031ec1dbebd24e589b276d45cdcfe3338dc3..3b90ec4147c3b095729b84733ea19daa732d6fbd 100644 (file)
--- 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;