[Dbix-class] Re: result_class bug in -current

[A. Pagaltzis]

* Guillermo Roditi <groditi at gmail.com> [2007-05-22 19:05]:
> +++ lib/DBIx/Class/ResultSet.pm (revision 12517)
> @@ -1618,9 +1618,13 @@
>     my $join_count = $seen->{$rel};
>     my $alias = ($join_count > 1 ? join('_', $rel, $join_count) : $rel);
> 
> +    #XXX - temp fix for result_class bug. There likely is a more elegant fix -groditi
> +    my %attrs = %{$self->{attrs}||{}};
> +    delete $attrs{result_class};
> +
>     $self->_source_handle->schema->resultset($rel_obj->{class})->search_rs(
>       undef, {
> -        %{$self->{attrs}||{}},
> +        %attrs,
>         join => undef,
>         prefetch => undef,
>         select => undef,

Errm? Bit awkward.

+++ lib/DBIx/Class/ResultSet.pm (revision 12517)
@@ -1618,9 +1618,10 @@
     my $join_count = $seen->{$rel};
     my $alias = ($join_count > 1 ? join('_', $rel, $join_count) : $rel);
 
     $self->_source_handle->schema->resultset($rel_obj->{class})->search_rs(
       undef, {
         %{$self->{attrs}||{}},
+        result_class => undef, # FIXME temporary bug workaround
         join => undef,
         prefetch => undef,
         select => undef,