X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema%2FLoader%2FRelBuilder%2FCompat%2Fv0_05.pm;h=fca23b4fd2309b8569644aed24222e1c9c8b47f8;hb=404aefa40641f06910962ac7cd69133298ee4598;hp=4d388aeefb71bd54f81d6ac5b192b19c11d344f7;hpb=900195eb6fc5ac5c15673b5eef751d513c6cd972;p=dbsrgits%2FDBIx-Class-Schema-Loader.git diff --git a/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm b/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm index 4d388ae..fca23b4 100644 --- a/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm +++ b/lib/DBIx/Class/Schema/Loader/RelBuilder/Compat/v0_05.pm @@ -44,10 +44,10 @@ sub _relnames_and_method { $local_relname = lc($local_table) . $colnames; $local_relname_uninflected = $local_relname; - $local_relname = $self->_inflect_plural( $local_relname ); + ($local_relname) = $self->_inflect_plural( $local_relname ); } else { $local_relname_uninflected = lc $local_table; - $local_relname = $self->_inflect_plural(lc $local_table); + ($local_relname) = $self->_inflect_plural(lc $local_table); } my $remote_method = 'has_many'; @@ -57,7 +57,7 @@ sub _relnames_and_method { if ($self->_array_eq([ $local_source->primary_columns ], $local_cols) || grep { $self->_array_eq($_->[1], $local_cols) } @$uniqs) { $remote_method = 'might_have'; - $local_relname = $self->_inflect_singular($local_relname_uninflected); + ($local_relname) = $self->_inflect_singular($local_relname_uninflected); } return ( $local_relname, $remote_relname, $remote_method );