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=f8b567de3a2f6c701f5999a7ec1c87f08e301df8;hp=94b1c07dde938807d001607ae6dfecd1e2e0c091;hb=982b1ba172104d6cd67807e78dddbe71b3074394;hpb=7a1370a25e46f41b28349f9fb225e3b8caa6791c diff --git a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm index 94b1c07..f8b567d 100644 --- a/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm +++ b/lib/DBIx/Class/ResultSet/RecursiveUpdate.pm @@ -207,7 +207,7 @@ sub recursive_update { $if_not_submitted ); } - # $self->_delete_empty_auto_increment($object); + _delete_empty_auto_increment($object); # don't allow insert to recurse to related objects # do the recursion ourselves # $object->{_rel_in_storage} = 1; @@ -490,7 +490,7 @@ sub get_m2m_source { } sub _delete_empty_auto_increment { - my ( $self, $object ) = @_; + my ( $object ) = @_; for my $col ( keys %{ $object->{_column_data} } ) { if ($object->result_source->column_info($col)->{is_auto_increment} and ( !defined $object->{_column_data}{$col}