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};
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();
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;