X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FUser.pm;h=3b90ec4147c3b095729b84733ea19daa732d6fbd;hb=9ba439f0dec2d3980de21b01d5f335a9d213158f;hp=cbb0fa857989d8d8d4a9c59695d63a057c5349c9;hpb=a6c428bc8b655a9de967a2794f6fd860e235bc10;p=debbugs.git

diff --git a/Debbugs/User.pm b/Debbugs/User.pm
index cbb0fa8..3b90ec4 100644
--- a/Debbugs/User.pm
+++ b/Debbugs/User.pm
@@ -318,7 +318,7 @@ sub write {
 sub read_usertags {
     my ($usertags,$email) = @_;
 
-    carp "read_usertags is deprecated";
+#    carp "read_usertags is deprecated";
     my $user = get_user($email);
     for my $tag (keys %{$user->{"tags"}}) {
         $usertags->{$tag} = [] unless defined $usertags->{$tag};
@@ -339,7 +339,7 @@ them out.
 sub write_usertags {
     my ($usertags,$email) = @_;
 
-    carp "write_usertags is deprecated";
+#    carp "write_usertags is deprecated";
     my $user = Debbugs::User->new($email,1); # locked
     $user->{"tags"} = { %{$usertags} };
     $user->write();
@@ -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;