Workaround not needed any more
authorzby <zby@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Wed, 1 Oct 2008 13:37:28 +0000 (13:37 +0000)
committerzby <zby@bd8105ee-0ff8-0310-8827-fb3f25b6796d>
Wed, 1 Oct 2008 13:37:28 +0000 (13:37 +0000)
lib/DBIx/Class/ResultSet/RecursiveUpdate.pm
t/var/dvdzbr.db

index a176f1f94714ce147d0b823637896e975bf851e3..de9ee41ab3b0cee487032b3f2c4bf4ada6010360 100644 (file)
@@ -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)){
index 1b86cea40f1c74a2199cb70b0e1907a6a07ea175..653317848fe24f1a139b9e09ad50deee2d629ccf 100644 (file)
Binary files a/t/var/dvdzbr.db and b/t/var/dvdzbr.db differ
This page took 0.023575 seconds and 4 git commands to generate.