[Bast-commits] r7231 - DBIx-Class/0.08/branches/discard_changes_replication_fix/lib/DBIx/Class

[jnapiorkowski at dev.catalyst.perl.org]

Author: jnapiorkowski
Date: 2009-08-05 15:03:46 +0000 (Wed, 05 Aug 2009)
New Revision: 7231

Modified:
   DBIx-Class/0.08/branches/discard_changes_replication_fix/lib/DBIx/Class/PK.pm
Log:
added the default attrs to solve the failing test recently commited

Modified: DBIx-Class/0.08/branches/discard_changes_replication_fix/lib/DBIx/Class/PK.pm
===================================================================
--- DBIx-Class/0.08/branches/discard_changes_replication_fix/lib/DBIx/Class/PK.pm	2009-08-05 14:57:45 UTC (rev 7230)
+++ DBIx-Class/0.08/branches/discard_changes_replication_fix/lib/DBIx/Class/PK.pm	2009-08-05 15:03:46 UTC (rev 7231)
@@ -43,6 +43,7 @@
   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.