X-Git-Url: https://git.dogcows.com/gitweb?p=chaz%2Fp5-DBIx-Class-ResultSet-RecursiveUpdate;a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FResultSet%2FRecursiveUpdate.pm;fp=lib%2FDBIx%2FClass%2FResultSet%2FRecursiveUpdate.pm;h=67a7ffd602bf7605eaa33d06b045a14343e68916;hp=e9b56e4f170edae2802de448386417e8c0d558da;hb=6a543315be718c91b051b5a0fbd4100892dda59f;hpb=a25c44676bb3eeabf0e4172bf8f2db6da039fc0b

diff --git a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
index e9b56e4..67a7ffd 100644
--- a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
+++ b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
@@ -81,7 +81,9 @@ sub recursive_update {
        # warn 'finding by +resolved: ' . Dumper( $updates ); use Data::Dumper;
         $object = $self->find( $updates, { key => 'primary' } );
     }
-    $object ||= $self->new( {} );
+
+    $object = $self->new( {} )
+        unless defined $object;
 
     # warn Dumper( $updates ); use Data::Dumper;
     # direct column accessors