[Bast-commits] r3574 - in trunk/DBIx-Class: . lib/DBIx/Class/Relationship

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-07-09 20:41:07 +0100 (Mon, 09 Jul 2007)
New Revision: 3574

Modified:
   trunk/DBIx-Class/Changes
   trunk/DBIx-Class/lib/DBIx/Class/Relationship/ManyToMany.pm
Log:
many-many rel fix

Modified: trunk/DBIx-Class/Changes
===================================================================
--- trunk/DBIx-Class/Changes	2007-07-09 18:18:41 UTC (rev 3573)
+++ trunk/DBIx-Class/Changes	2007-07-09 19:41:07 UTC (rev 3574)
@@ -1,5 +1,6 @@
 Revision history for DBIx::Class
 
+        - fix many-many rels to not use set_columns
         - Unmarked deploy as experimental since it isn't anymore
         - Removed Cwd dep since it's not required and causes problems
           with debian packaging

Modified: trunk/DBIx-Class/lib/DBIx/Class/Relationship/ManyToMany.pm
===================================================================
--- trunk/DBIx-Class/lib/DBIx/Class/Relationship/ManyToMany.pm	2007-07-09 18:18:41 UTC (rev 3573)
+++ trunk/DBIx-Class/lib/DBIx/Class/Relationship/ManyToMany.pm	2007-07-09 19:41:07 UTC (rev 3574)
@@ -66,9 +66,8 @@
       }
 
       my $link_vals = @_ > 1 && ref $_[$#_] eq 'HASH' ? pop(@_) : {};
-      my $link = $self->search_related($rel)->new_result({});
+      my $link = $self->search_related($rel)->new_result($link_vals);
       $link->set_from_related($f_rel, $obj);
-      $link->set_columns($link_vals);
       $link->insert();
 	  return $obj;
     };