remove deprecationn warnings for the time being in Debbugs::User

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