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 { sub get_tables {
my $self = shift; my $self = shift;
my @properties = (); my @tables = ();
my %seen = (); my %seen = ();
push @properties, push @tables,
grep { ! $seen{$_}++ } grep { ! $seen{$_}++ }
map { $_->tableName } map { $_->tableName }
$self->get_all_class_metas $self->get_all_class_metas
; ;
return @properties; return @tables;
} }
#------------------------------------------------------------------- #-------------------------------------------------------------------