From: Ricardo Signes <rjbs@cpan.org>
Date: Fri, 9 Jan 2009 01:55:53 +0000 (+0000)
Subject: by setting conn_?id first, we prevent $storage->dbh from recursing through on_connect... 
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=361ca8e5f1217513e3572084a4d0aaeb47613619;p=dbsrgits%2FDBIx-Class-Historic.git

by setting conn_?id first, we prevent $storage->dbh from recursing through on_connect_do actions
---

diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm
index fde1fa8..d6a61b7 100644
--- a/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@ -911,11 +911,11 @@ sub _populate_dbh {
     }
   }
 
-  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'};
+
+  my $connection_do = $self->on_connect_do;
+  $self->_do_connection_actions($connection_do) if ref($connection_do);
 }
 
 sub _do_connection_actions {