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

[jnapiorkowski at dev.catalyst.perl.org]

Author: jnapiorkowski
Date: 2008-11-10 16:12:28 +0000 (Mon, 10 Nov 2008)
New Revision: 5090

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated/Replicant.pm
Log:
changed the way we get the DSN for debugging in replication

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated/Replicant.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated/Replicant.pm	2008-11-10 01:35:52 UTC (rev 5089)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI/Replicated/Replicant.pm	2008-11-10 16:12:28 UTC (rev 5090)
@@ -60,7 +60,7 @@
 
 around '_query_start' => sub {
   my ($method, $self, $sql, @bind) = @_;
-  my $dsn = $self->connect_info->[0];
+  my $dsn = $self->_dbi_connect_info->[0];
   $self->$method("DSN: $dsn SQL: $sql", @bind);
 };