[Bast-commits] r7014 - DBIx-Class/0.08/branches/new_replication_transaction_fixup/lib/DBIx/Class/Storage/DBI/Replicated

[jnapiorkowski at dev.catalyst.perl.org]

Author: jnapiorkowski
Date: 2009-07-09 18:17:03 +0000 (Thu, 09 Jul 2009)
New Revision: 7014

Modified:
   DBIx-Class/0.08/branches/new_replication_transaction_fixup/lib/DBIx/Class/Storage/DBI/Replicated/WithDSN.pm
Log:
more changes to the way debug output works

Modified: DBIx-Class/0.08/branches/new_replication_transaction_fixup/lib/DBIx/Class/Storage/DBI/Replicated/WithDSN.pm
===================================================================
--- DBIx-Class/0.08/branches/new_replication_transaction_fixup/lib/DBIx/Class/Storage/DBI/Replicated/WithDSN.pm	2009-07-09 18:06:44 UTC (rev 7013)
+++ DBIx-Class/0.08/branches/new_replication_transaction_fixup/lib/DBIx/Class/Storage/DBI/Replicated/WithDSN.pm	2009-07-09 18:17:03 UTC (rev 7014)
@@ -32,7 +32,10 @@
   my ($method, $self, $sql, @bind) = @_;
   my $dsn = $self->_dbi_connect_info->[0];
   my($op, $rest) = ($sql=~m/^(\w+) (.+)$/);
-  $self->$method("$op [DSN=$dsn] $rest", @bind);
+
+  my $storage_type = $self->can('active') ? 'REPLICANT' : 'MASTER';
+
+  $self->$method("$op [DSN_$storage_type=$dsn] $rest", @bind);
 };
 
 =head1 ALSO SEE