X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FSchema.pm;h=fa8e85073393d30a7cea8d24a135bd21aab658f6;hb=cda04c3afd46989e1964a6c8a277fd7faa11b291;hp=7bbc2f14478cdf382f55199ec5175abb650249e8;hpb=8091aa9182ff763aa607dd82f4d61b99f8adab37;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/Schema.pm b/lib/DBIx/Class/Schema.pm
index 7bbc2f1..fa8e850 100644
--- a/lib/DBIx/Class/Schema.pm
+++ b/lib/DBIx/Class/Schema.pm
@@ -133,7 +133,6 @@ sub load_classes {
   foreach my $prefix (keys %comps_for) {
     foreach my $comp (@{$comps_for{$prefix}||[]}) {
       my $comp_class = "${prefix}::${comp}";
-      print "$comp_class\n";
       eval "use $comp_class"; # If it fails, assume the user fixed it
       $class->register_class($comp => $comp_class);
     }
@@ -168,7 +167,9 @@ sub compose_connection {
   while (my ($comp, $comp_class) = each %reg) {
     my $target_class = "${target}::${comp}";
     $class->inject_base($target_class, $comp_class, $conn_class);
-    $target_class->table($comp_class->table);
+    my $table = $comp_class->table->new({ %{$comp_class->table} });
+    $table->result_class($target_class);
+    $target_class->table($table);
     @map{$comp, $comp_class} = ($target_class, $target_class);
   }
   {