From 1c24c8189acf9e48204c90dbf9249567a86a157f Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Thu, 9 Dec 2010 18:57:58 -0600
Subject: [PATCH] migrate User deprecation messages to derp

---
 lib/WebGUI/User.pm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm
index e5159b895..cc42a66ac 100644
--- a/lib/WebGUI/User.pm
+++ b/lib/WebGUI/User.pm
@@ -27,8 +27,6 @@ use WebGUI::Friends;
 use WebGUI::Deprecate;
 use Carp qw( carp );
 
-my %deprecateMessage = ();
-
 =head1 NAME
 
 Package WebGUI::User
@@ -211,8 +209,7 @@ Returns an instance of the authentication object for this user.
 
 # DEPRECATED. Remove in 9.0
 sub authInstance {
-    my $message = "WebGUI::User::authInstance is deprecated. Instantiate the auth method directly instead.";
-    carp $message unless $deprecateMessage{$message}++;
+    derp "WebGUI::User::authInstance is deprecated. Instantiate the auth method directly instead.";
     my $self    = shift;
     my $session = $self->session;
 
@@ -1204,8 +1201,7 @@ The value to set the profile field name to.
 
 # DEPRECATED! Remove in 9.0
 sub profileField {
-    my $message = "WebGUI::User::profileField is deprecated. Use get() and update() instead\n";
-    carp $message unless $deprecateMessage{$message}++;
+    derp "WebGUI::User::profileField is deprecated. Use get() and update() instead";
     my $self        = shift;
     my $fieldName   = shift;
     my $value       = shift;