Couldn't instantiate component "App::Model::DB", "Cannot assign a value
to a read-only accessor at
/usr/local/share/perl/5.10.0/DBIx/Class/Storage/DBI/Replicated.pm line
433
DBIx::Class::Storage::DBI::Replicated does this in "around connect_info"
when 'pool' is => 'ro'
$self->pool($self->_build_pool)
if $self->pool;
This happens when "pool_args" are included in the configuration.
| Subject: | dbix_replicated.diff |
--- /usr/local/share/perl/5.10.0/DBIx/Class/Storage/DBI/Replicated.pm.orig 2010-11-02 06:11:51.000000000 -0700
+++ /usr/local/share/perl/5.10.0/DBIx/Class/Storage/DBI/Replicated.pm 2010-11-02 06:24:11.000000000 -0700
@@ -430,8 +430,9 @@
$merge->merge((delete $opts{pool_args} || {}), $self->pool_args)
);
- $self->pool($self->_build_pool)
- if $self->pool;
+ # Reset so will rebuild next time $self->pool called.
+ $self->clear_pool;
+
}
if (@opts{qw/balancer_type balancer_args/}) {