[Bast-commits] r4470 - DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage

[blblack at dev.catalyst.perl.org]

Author: blblack
Date: 2008-06-05 07:57:09 +0100 (Thu, 05 Jun 2008)
New Revision: 4470

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
Log:
_verify_pid mods _dbh, so we must call it again here

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2008-06-05 01:49:28 UTC (rev 4469)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2008-06-05 06:57:09 UTC (rev 4470)
@@ -600,7 +600,7 @@
 
   eval {
     $self->_verify_pid if $dbh;
-    if( !$dbh ) {
+    if(!$self->_dbh) {
         $self->_populate_dbh;
         $dbh = $self->_dbh;
     }