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

[rjbs at dev.catalyst.perl.org]

Author: rjbs
Date: 2009-01-08 20:50:57 +0000 (Thu, 08 Jan 2009)
New Revision: 5291

Modified:
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
Log:
fix the just-added test; pass the Storage object to pure-code on_connect callbacks

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 20:49:29 UTC (rev 5290)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2009-01-08 20:50:57 UTC (rev 5291)
@@ -926,7 +926,7 @@
     $self->_do_query($_) foreach @$connection_do;
   }
   elsif (ref $connection_do eq 'CODE') {
-    $connection_do->();
+    $connection_do->($self);
   }
 
   return $self;