From 1989242c8ea9578a4412a08b06f4dba0203a036d Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 24 Dec 2007 04:23:32 +0000
Subject: [PATCH] remove double sigil and dereference instead

---
 lib/WebGUI/User.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/User.pm b/lib/WebGUI/User.pm
index cd3d50636..d0f6e4e66 100644
--- a/lib/WebGUI/User.pm
+++ b/lib/WebGUI/User.pm
@@ -518,7 +518,7 @@ sub new {
             if ($profile{$key} eq "" && $default{$key}) {
                 $value = eval($default{$key});
                 if (ref $value eq "ARRAY") {
-                    $profile{$key} = $$value[0];
+                    $profile{$key} = $value->[0];
                 } else {
                     $profile{$key} = $value;
                 }