[Bast-commits] r5297 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage
rjbs at dev.catalyst.perl.org
rjbs at dev.catalyst.perl.org
Fri Jan 9 01:55:54 GMT 2009
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 {
More information about the Bast-commits
mailing list