Fixed in -current
+++ 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,
On 5/21/07, Guillermo Roditi <[EMAIL PROTECTED]> wrote:
seems to fail in trunk as well
On 5/21/07, Christopher H. Laco <[EMAIL PROTECTED]> wrote:
> Guillermo Roditi wrote:
> > Jess (castaway) ran into a bug today when using result_class and
> > related_resultset. A failing test has been checked into -current as
> > 97result_class.t it beats the hell out of me. I tried to walk through
> it,
> > but was unsuccessful. could someone please take a look at this? I'm
> too
> > beat
> > for it today.
> >
> > my $cd_rc = $schema->resultset("CD")->result_class;
> > my $artist_rs = $schema->resultset("Artist")
> > ->search_rs({}, {result_class => "IWillExplode"});
> > is($artist_rs->result_class, 'IWillExplode', 'Correct artist
> > result_class');
> > my $cd_rs = $artist_rs->related_resultset('cds');
> > is($cd_rs->result_class, $cd_rc, 'Correct cd result_class'); #this
> will
> > fail
>
> I'm away from a working perl at the moment...
> what does the failure do..gripe about "did you remember to load
> IWIllExplode"?
>
> Thanls for hte test though.
> error_report_plus_test++
>
> -=Chris
>
>
> _______________________________________________
> List: http://lists.rawmode.org/cgi-bin/mailman/listinfo/dbix-class
> Wiki: http://dbix-class.shadowcatsystems.co.uk/
> IRC: irc.perl.org#dbix-class
> SVN: http://dev.catalyst.perl.org/repos/bast/trunk/DBIx-Class/
> Searchable Archive:
> http://www.mail-archive.com/[email protected]/
>
>
_______________________________________________
List: http://lists.rawmode.org/cgi-bin/mailman/listinfo/dbix-class
Wiki: http://dbix-class.shadowcatsystems.co.uk/
IRC: irc.perl.org#dbix-class
SVN: http://dev.catalyst.perl.org/repos/bast/trunk/DBIx-Class/
Searchable Archive: http://www.mail-archive.com/[email protected]/
