X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FRetrieve.pm;h=34be5f3833690e34fc9b757d8ba38eab09a583d5;hb=d4a20f3890186caa8d1ac6f6ae7706a276972f9f;hp=564583aa28b3a4f9bdd0f6e8764b9d767d414cff;hpb=7210819b8f016895c33b397c01ff13e5a746c172;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/CDBICompat/Retrieve.pm b/lib/DBIx/Class/CDBICompat/Retrieve.pm index 564583a..34be5f3 100644 --- a/lib/DBIx/Class/CDBICompat/Retrieve.pm +++ b/lib/DBIx/Class/CDBICompat/Retrieve.pm @@ -67,14 +67,14 @@ sub retrieve_from_sql { $attrs{group_by} = $1; } - return $class->search_literal($cond, ( %attrs || () ) ); + return $class->search_literal($cond, @rest, ( %attrs ? \%attrs : () ) ); } sub construct { my $class = shift; my $obj = $class->resultset_instance->new_result(@_); $obj->in_storage(1); - + return $obj; }