X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FReplicated.pm;h=b61e8317aef690e015c04a07e101a862ac2ddd03;hb=a85b7ebe9762ca64a08468f6c8f27a0ae583d38c;hp=7fff40ec5bb29bd602f2b65b7d0b7f5ece903825;hpb=7f4433eb9bbe0650b4f5e2dff8bf817f4d28d3df;p=dbsrgits%2FDBIx-Class.git

diff --git a/lib/DBIx/Class/Storage/DBI/Replicated.pm b/lib/DBIx/Class/Storage/DBI/Replicated.pm
index 7fff40e..b61e831 100644
--- a/lib/DBIx/Class/Storage/DBI/Replicated.pm
+++ b/lib/DBIx/Class/Storage/DBI/Replicated.pm
@@ -362,7 +362,6 @@ has 'write_handler' => (
     _do_query
     _dbh_sth
     _dbh_execute
-    _prefetch_insert_auto_nextvals
   /],
 );
 
@@ -381,6 +380,7 @@ my @unimplemented = qw(
   sql_limit_dialect
 
   _inner_join_to_node
+  _group_over_selection
 );
 
 # the capability framework
@@ -429,8 +429,9 @@ around connect_info => sub {
       $merge->merge((delete $opts{pool_args} || {}), $self->pool_args)
     );
 
-    $self->pool($self->_build_pool)
-      if $self->pool;
+    ## Since we possibly changed the pool_args, we need to clear the current
+    ## pool object so that next time it is used it will be rebuilt.
+    $self->clear_pool;
   }
 
   if (@opts{qw/balancer_type balancer_args/}) {