[Bast-commits] r7068 - DBIx-Class/0.08/branches/reduce_pings/lib/DBIx/Class/Storage

[caelum at dev.catalyst.perl.org]

Author: caelum
Date: 2009-07-17 09:47:31 +0000 (Fri, 17 Jul 2009)
New Revision: 7068

Modified:
   DBIx-Class/0.08/branches/reduce_pings/lib/DBIx/Class/Storage/DBI.pm
Log:
don't run connection actions if ->_rebless does not connect

Modified: DBIx-Class/0.08/branches/reduce_pings/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/branches/reduce_pings/lib/DBIx/Class/Storage/DBI.pm	2009-07-17 08:20:08 UTC (rev 7067)
+++ DBIx-Class/0.08/branches/reduce_pings/lib/DBIx/Class/Storage/DBI.pm	2009-07-17 09:47:31 UTC (rev 7068)
@@ -817,7 +817,8 @@
       $self->_rebless();
     }
 
-    $self->_run_connection_actions if $started_unconnected;
+    $self->_run_connection_actions
+        if $started_unconnected && defined $self->_dbh;
   }
 }