make _determine_driver more reentrant
Rafael Kitover [Mon, 10 Aug 2009 08:13:19 +0000 (08:13 +0000)]
lib/DBIx/Class/Storage/DBI.pm

index 8a0b8cc..9fdb67c 100644 (file)
@@ -824,7 +824,7 @@ sub _run_connection_actions {
 sub _determine_driver {
   my ($self) = @_;
 
-  if (not $self->_driver_determined) {
+  if ((not $self->_driver_determined) && (not $self->{_in_determine_driver})) {
     my $started_unconnected = 0;
     local $self->{_in_determine_driver} = 1;