From 660edfba2fd6ff066dee6ed0c4ad857ff839b1b4 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sun, 10 Aug 2008 06:52:13 -0700 Subject: [PATCH] remove deprecationn warnings for the time being in Debbugs::User --- Debbugs/User.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Debbugs/User.pm b/Debbugs/User.pm index cbb0fa85..c091031e 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(); -- 2.39.5