remove copy/paste variable names.

This commit is contained in:
Colin Kuskie 2010-03-03 15:39:05 -08:00
parent d7b0d93ad8
commit 4d3d031d78

View file

@ -77,14 +77,14 @@ Returns an array of the names of all tables in every class used by this class.
sub get_tables {
my $self = shift;
my @properties = ();
my @tables = ();
my %seen = ();
push @properties,
push @tables,
grep { ! $seen{$_}++ }
map { $_->tableName }
$self->get_all_class_metas
;
return @properties;
return @tables;
}
#-------------------------------------------------------------------