Workaround not needed any more

diff --git a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
index a176f1f94714ce147d0b823637896e975bf851e3..de9ee41ab3b0cee487032b3f2c4bf4ada6010360 100644 (file)
--- a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
+++ b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
@@ -11,15 +11,7 @@ use base qw(DBIx::Class::ResultSet);
 sub recursive_update { 
     my( $self, $updates ) = @_;
     my $object;
-    # this is a workaround for a bug in the svn version 4794 
-#    if ( ref $self->{cond} eq 'ARRAY' and ref $self->{cond}[0] eq 'SCALAR' ){
-    if ( ref $self->{cond} eq 'SCALAR' ){
-        $self->{cond} = {};
-        $object = $self->new( {} );
-    }
-    else {
-        $object = $self->find( $updates, { key => 'primary' } ) || $self->new( {} );
-    }
+    $object = $self->find( $updates, { key => 'primary' } ) || $self->new( {} );
 
     for my $name ( keys %$updates ){ 
         if($object->can($name)){

diff --git a/t/var/dvdzbr.db b/t/var/dvdzbr.db
index 1b86cea40f1c74a2199cb70b0e1907a6a07ea175..653317848fe24f1a139b9e09ad50deee2d629ccf 100644 (file)
Binary files a/t/var/dvdzbr.db and b/t/var/dvdzbr.db differ