From: Ricardo Signes 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 {