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;h=de9ee41ab3b0cee487032b3f2c4bf4ada6010360;hp=a176f1f94714ce147d0b823637896e975bf851e3;hb=046753a2be0fc177b953aaa5beee58ef771e82fe;hpb=d107f6878c2cb01bc4f498657d9b954603aaae2a;ds=sidebyside diff --git a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm index a176f1f..de9ee41 100644 --- 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)){