From: Rafael Kitover <rkitover@cpan.org>
Date: Fri, 17 Jul 2009 09:47:31 +0000 (+0000)
Subject: don't run connection actions if ->_rebless does not connect
X-Git-Tag: v0.08109~30^2~14
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=054a2b140bfa31646c695e42b02987119b547eee;p=dbsrgits%2FDBIx-Class.git

don't run connection actions if ->_rebless does not connect
---

diff --git a/lib/DBIx/Class/Storage/DBI.pm b/lib/DBIx/Class/Storage/DBI.pm
index 55305aa..040a388 100644
--- a/lib/DBIx/Class/Storage/DBI.pm
+++ b/lib/DBIx/Class/Storage/DBI.pm
@@ -817,7 +817,8 @@ sub _determine_driver {
       $self->_rebless();
     }
 
-    $self->_run_connection_actions if $started_unconnected;
+    $self->_run_connection_actions
+        if $started_unconnected && defined $self->_dbh;
   }
 }