From 7933e12ab51c676141b2e7c35fcb4ec883119aca Mon Sep 17 00:00:00 2001
From: Scott Walters <scott@slowass.net>
Date: Thu, 3 Jun 2010 20:04:01 -0400
Subject: [PATCH] get() shouldn't return session; fixes the Asset.t "get,
 specific properties - no session" test

---
 lib/WebGUI/Definition/Role/Object.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/WebGUI/Definition/Role/Object.pm b/lib/WebGUI/Definition/Role/Object.pm
index 4c1c74a79..9d1133e15 100644
--- a/lib/WebGUI/Definition/Role/Object.pm
+++ b/lib/WebGUI/Definition/Role/Object.pm
@@ -68,6 +68,7 @@ sub get {
         return undef;
     }
     my %properties = map { $_ => scalar $self->$_ } $self->meta->get_all_attributes_list;
+    delete $properties{session};
     return \%properties;
 }