Skip to content

Commit 8ff8a12

Browse files
committed
Tentative fix for RT#78436
1 parent 897f4ac commit 8ff8a12

File tree

2 files changed

+8
-0
lines changed

2 files changed

+8
-0
lines changed

Changes

Lines changed: 3 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -1,5 +1,8 @@
11
Revision history for DBIx::Class
22

3+
- Disallow erroneous calling of connect_info on a replicated storage
4+
(RT#78436)
5+
36
0.08203_01 2012-10-18 13:57 (UTC)
47
* Fixes
58
- Fix test failure on perl 5.8

lib/DBIx/Class/Storage/DBI/Replicated.pm

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -445,6 +445,11 @@ C<pool_type>, C<pool_args>, C<balancer_type> and C<balancer_args>.
445445
around connect_info => sub {
446446
my ($next, $self, $info, @extra) = @_;
447447

448+
$self->throw_exception(
449+
'connect_info can not be retrieved from a replicated storage - '
450+
. 'accessor must be called on a specific pool instance'
451+
) unless defined $info;
452+
448453
my $merge = Hash::Merge->new('LEFT_PRECEDENT');
449454

450455
my %opts;

0 commit comments

Comments
 (0)