From 86047445a76007312d367ea36abc706d05073518 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 21 Nov 2008 16:49:59 +0000
Subject: [PATCH] fix extra my-s in Operation/Profile.pm

---
 lib/WebGUI/Operation/Profile.pm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Operation/Profile.pm b/lib/WebGUI/Operation/Profile.pm
index be0dd9166..f151b3bb9 100644
--- a/lib/WebGUI/Operation/Profile.pm
+++ b/lib/WebGUI/Operation/Profile.pm
@@ -162,8 +162,7 @@ sub validateProfileData {
     my $errors    = $retHash->{errors};
 
     my $format    = "<li>%s</li>";
-    my $warning   = "";
-    my $error     = "";
+
     map { $warning .= sprintf($format,$_) }@{$warnings};
     map { $error   .= sprintf($format,$_) }@{$errors};
     
@@ -211,4 +210,4 @@ sub www_viewProfile {
 }
 
 
-1;
\ No newline at end of file
+1;