insert in ResultSet now recurses - we don't want this

diff --git a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
index 7115aaa7863d0bb6fe58aaf4e2c2aaa54a9fc4eb..39366e714674d98aa619de482be6f46e0aa83662 100644 (file)
--- a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
+++ b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
@@ -44,6 +44,8 @@ sub recursive_update {
         #warn Dumper($object->{_column_data}); use Data::Dumper;
     }
     $self->_delete_empty_auto_increment($object);
+    # don't allow insert to recurse to related objects - we do the recursion ourselves
+    $object->{_rel_in_storage} = 1;
     $object->update_or_insert;
 
     # updating relations that can be done only after the row is inserted into the database

diff --git a/t/var/dvdzbr.db b/t/var/dvdzbr.db
index c279b90af5bd6b1cb92622e17086708918e5ff1a..86a55809d2fd6e8490bc3e06e1cd7a657d15e317 100644 (file)
Binary files a/t/var/dvdzbr.db and b/t/var/dvdzbr.db differ