[Bast-commits] r4119 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI

[teejay at dev.catalyst.perl.org]

Author: teejay
Date: 2008-03-04 19:29:45 +0000 (Tue, 04 Mar 2008)
New Revision: 4119

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replication.pm
Log:
Applied fixes to replication connect_info method 

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replication.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replication.pm	2008-03-04 15:13:03 UTC (rev 4118)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replication.pm	2008-03-04 19:29:45 UTC (rev 4119)
@@ -89,9 +89,9 @@
 
     # We need to copy-pass $global_options, since connect_info clears it while
     # processing options
-    $self->write_source->connect_info( [ @{$info->[0]}, { %$global_options } ] );
+    $self->write_source->connect_info( @{$info->[0]}, { %$global_options } );
 
-    @dsns = map { ($_->[3]->{priority} || 10) => $_ } @{$info}[1..@$info-1];
+    @dsns = map { ($_->[3]->{priority} || 10) => $_ } @{$info->[0]}[1..@{$info->[0]}-1];
     $global_options->{dsns} = \@dsns;
 
     $self->read_source->connect_info( [ 'dbi:Multi:', undef, undef, { %$global_options } ] );