Switch to done_testing

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / PK.pm

diff --git a/lib/DBIx/Class/PK.pm b/lib/DBIx/Class/PK.pm
index f282924..cb59ec9 100644 (file)
--- a/lib/DBIx/Class/PK.pm
+++ b/lib/DBIx/Class/PK.pm
@@ -42,16 +42,17 @@ sub discard_changes {
   my ($self, $attrs) = @_;
   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.
        %$self = %$current_storage;
-       
+
     # Avoid a possible infinite loop with
     # sub DESTROY { $_[0]->discard_changes }
     bless $current_storage, 'Do::Not::Exist';
-    
+
     return $self;      
   } else {
     $self->in_storage(0);