[Bast-commits] r3957 - DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/ResultSource/Table

[edenc at dev.catalyst.perl.org]

Author: edenc
Date: 2008-01-21 22:55:08 +0000 (Mon, 21 Jan 2008)
New Revision: 3957

Modified:
   DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Partitioned.pm
Log:
fixing class_mapping issue

Modified: DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Partitioned.pm
===================================================================
--- DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Partitioned.pm	2008-01-21 22:54:22 UTC (rev 3956)
+++ DBIx-Class-Partitioned/1.000/trunk/lib/DBIx/Class/ResultSource/Table/Partitioned.pm	2008-01-21 22:55:08 UTC (rev 3957)
@@ -15,8 +15,11 @@
     # ugh...
     if ( Scalar::Util::blessed($schema) ) {
         foreach my $partition_source ( values %{ $self->_partitions } ) {
+            my $result_class = $partition_source->result_class;
+            $partition_source->result_class('');
             $schema->register_source(
                 $partition_source->source_name => $partition_source );
+            $partition_source->result_class($result_class);
         }
     }