[Bast-commits] r6193 - DBIx-Class/0.08/branches/storage-tweaks/lib/DBIx/Class/Storage/DBI

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-05-09 12:21:44 +0000 (Sat, 09 May 2009)
New Revision: 6193

Modified:
   DBIx-Class/0.08/branches/storage-tweaks/lib/DBIx/Class/Storage/DBI/Replicated.pm
Log:
::DBI::Replicated - don't build pool/balancer from connect_info unless necessary

Modified: DBIx-Class/0.08/branches/storage-tweaks/lib/DBIx/Class/Storage/DBI/Replicated.pm
===================================================================
--- DBIx-Class/0.08/branches/storage-tweaks/lib/DBIx/Class/Storage/DBI/Replicated.pm	2009-05-09 11:52:52 UTC (rev 6192)
+++ DBIx-Class/0.08/branches/storage-tweaks/lib/DBIx/Class/Storage/DBI/Replicated.pm	2009-05-09 12:21:44 UTC (rev 6193)
@@ -337,7 +337,8 @@
       %{ delete $opts{pool_args} || {} }
     });
 
-    $self->pool($self->_build_pool);
+    $self->pool($self->_build_pool)
+	if $self->pool;
   }
 
   if (@opts{qw/balancer_type balancer_args/}) {
@@ -349,7 +350,8 @@
       %{ delete $opts{balancer_args} || {} }
     });
 
-    $self->balancer($self->_build_balancer);
+    $self->balancer($self->_build_balancer)
+	if $self->balancer;
   }
 
   $self->_master_connect_info_opts(\%opts);