[Catalyst-commits] r10426 - trunk/Catalyst-Model-DBIC-Schema/lib/Catalyst/Model/DBIC

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-06-03 23:28:14 +0000 (Wed, 03 Jun 2009)
New Revision: 10426

Modified:
   trunk/Catalyst-Model-DBIC-Schema/lib/Catalyst/Model/DBIC/Schema.pm
Log:
fix composition namespace

Modified: trunk/Catalyst-Model-DBIC-Schema/lib/Catalyst/Model/DBIC/Schema.pm
===================================================================
--- trunk/Catalyst-Model-DBIC-Schema/lib/Catalyst/Model/DBIC/Schema.pm	2009-06-03 17:23:27 UTC (rev 10425)
+++ trunk/Catalyst-Model-DBIC-Schema/lib/Catalyst/Model/DBIC/Schema.pm	2009-06-03 23:28:14 UTC (rev 10426)
@@ -486,7 +486,7 @@
 
 sub BUILD {
     my $self = shift;
-    my $class = ref $self;
+    my $class = $self->_original_class_name;
     my $schema_class = $self->schema_class;
 
     if( !$self->connect_info ) {