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

[rjbs at dev.catalyst.perl.org]

Author: rjbs
Date: 2009-01-09 01:55:53 +0000 (Fri, 09 Jan 2009)
New Revision: 5297

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
Log:
by setting conn_?id first, we prevent $storage->dbh from recursing through on_connect_do actions

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2009-01-08 23:11:50 UTC (rev 5296)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2009-01-09 01:55:53 UTC (rev 5297)
@@ -911,11 +911,11 @@
     }
   }
 
+  $self->_conn_pid($$);
+  $self->_conn_tid(threads->tid) if $INC{'threads.pm'};
+
   my $connection_do = $self->on_connect_do;
   $self->_do_connection_actions($connection_do) if ref($connection_do);
-
-  $self->_conn_pid($$);
-  $self->_conn_tid(threads->tid) if $INC{'threads.pm'};
 }
 
 sub _do_connection_actions {