[Bast-commits] r5539 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship

[jmmills at dev.catalyst.perl.org]

Author: jmmills
Date: 2009-02-20 03:27:41 +0000 (Fri, 20 Feb 2009)
New Revision: 5539

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/Base.pm
Log:
Modfied isa() check in set_from_related() to use class name returned from relationship_info() rather than class() accessor on object. This fixes an issue when using with Catalyst::Model::DBIC::Schema.


Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/Base.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/Base.pm	2009-02-20 03:18:05 UTC (rev 5538)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Relationship/Base.pm	2009-02-20 03:27:41 UTC (rev 5539)
@@ -399,7 +399,7 @@
     (ref $cond ? ref $cond : 'plain scalar')
   ) unless ref $cond eq 'HASH';
   if (defined $f_obj) {
-    my $f_class = $self->result_source->schema->class($rel_obj->{class});
+    my $f_class = $rel_obj->{class};
     $self->throw_exception( "Object $f_obj isn't a ".$f_class )
       unless Scalar::Util::blessed($f_obj) and $f_obj->isa($f_class);
   }