accepting undef instead of [] for m2m

diff --git a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
index f288135edd9f2bf01838c142aa3f85d02990ed5f..f86fea6a5fa4d4fca186b7a7eea8d05f3e2c1fa0 100644 (file)
--- a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
+++ b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
@@ -117,11 +117,14 @@ sub recursive_update {
             my @rows;
             my $result_source = $object->$name->result_source;
             my @updates;
-            if( ref $updates->{$name} ){
-                @updates = @{ $updates->{$name} };
+            if( ! defined $value ){
+                next;
+            }
+            elsif( ref $value ){
+                @updates = @{ $value };
             }
             else{
-                @updates = ( $updates->{$name} );
+                @updates = ( $value );
             }
             for my $elem ( @updates ) {
                 if ( ref $elem ) {

diff --git a/t/var/dvdzbr.db b/t/var/dvdzbr.db
index f96d3d59c461516e086df8304cd25e8db8fdeea5..5277e1b27b154a985c6bf3b99f6392ceae8abc7d 100644 (file)
Binary files a/t/var/dvdzbr.db and b/t/var/dvdzbr.db differ