X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FCDBICompat%2FAutoUpdate.pm;h=c32c12520529909ec3de7aff4552031a185859c0;hb=8d47598dd975df026f838ff5e54f583c34fc6662;hp=e61e167656c62daa7924b45fc99bf5412c11938c;hpb=a3018bd384d02955c5a442cf2fd1ac654393a3c8;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/CDBICompat/AutoUpdate.pm b/lib/DBIx/Class/CDBICompat/AutoUpdate.pm
index e61e167..c32c125 100644
--- a/lib/DBIx/Class/CDBICompat/AutoUpdate.pm
+++ b/lib/DBIx/Class/CDBICompat/AutoUpdate.pm
@@ -1,4 +1,5 @@
-package DBIx::Class::CDBICompat::AutoUpdate;
+package # hide from PAUSE
+    DBIx::Class::CDBICompat::AutoUpdate;
 
 use strict;
 use warnings;
@@ -7,10 +8,11 @@ use base qw/Class::Data::Inheritable/;
 
 __PACKAGE__->mk_classdata('__AutoCommit');
 
-sub set {
+sub set_column {
   my $self = shift;
-  $self->NEXT::set(@_);
-  $self->update if ($self->autoupdate && $self->{_in_database});
+  my $ret = $self->next::method(@_);
+  $self->update if ($self->autoupdate && $self->{_in_storage});
+  return $ret;
 }
 
 sub autoupdate {