From: John Napiorkowski Date: Wed, 5 Aug 2009 15:03:46 +0000 (+0000) Subject: added the default attrs to solve the failing test recently commited X-Git-Tag: v0.08109~35^2~6 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b54dbe8c770662c25310b8dcee746481248f8b5c;p=dbsrgits%2FDBIx-Class.git added the default attrs to solve the failing test recently commited --- diff --git a/lib/DBIx/Class/PK.pm b/lib/DBIx/Class/PK.pm index 5be4833..cb59ec9 100644 --- a/lib/DBIx/Class/PK.pm +++ b/lib/DBIx/Class/PK.pm @@ -43,6 +43,7 @@ sub discard_changes { delete $self->{_dirty_columns}; return unless $self->in_storage; # Don't reload if we aren't real! + $attrs = { force_pool => 'master', %{ defined $attrs ? $attrs:{} } }; if( my $current_storage = $self->get_from_storage($attrs)) { # Set $self to the current.