From 855b59f61d4420923febbda576101a9aa32ed4c6 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 7 May 2010 17:58:00 -0700
Subject: [PATCH] Similar changes as to Definition::Meta::Class in --::Asset

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

diff --git a/lib/WebGUI/Definition/Meta/Asset.pm b/lib/WebGUI/Definition/Meta/Asset.pm
index 1627b958c..2ec6375d0 100644
--- a/lib/WebGUI/Definition/Meta/Asset.pm
+++ b/lib/WebGUI/Definition/Meta/Asset.pm
@@ -76,7 +76,7 @@ Returns an array of the names of all tables in every class used by this class.
 =cut
 
 sub get_tables {
-    my $self = shift;
+    my ($self) = @_;
     if ($self->is_immutable) {
         return @{ $self->{__immutable}{get_tables_methods} ||= [ $self->_get_tables ] };
     }