From 6154044719ef183fa663acad212b251e58141285 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 7 May 2010 17:56:30 -0700
Subject: [PATCH] when using goto on objects, must restore $self into @_...

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

diff --git a/lib/WebGUI/Definition/Meta/Class.pm b/lib/WebGUI/Definition/Meta/Class.pm
index 1b2bab583..112b7be2c 100644
--- a/lib/WebGUI/Definition/Meta/Class.pm
+++ b/lib/WebGUI/Definition/Meta/Class.pm
@@ -76,7 +76,7 @@ Returns an array of all attribute names across all meta classes.
 =cut
 
 sub get_all_attributes_list {
-    my $self = shift;
+    my ($self) = @_;
     if ($self->is_immutable) {
         return @{ $self->{__immutable}{get_all_attributes_list} ||= [ $self->_get_all_attributes_list ] };
     }