[Bast-commits] r5276 - DBIx-Class/0.08/branches/result_source_sqlt_deploy_hook/lib/DBIx/Class

[nothingmuch at dev.catalyst.perl.org]

Author: nothingmuch
Date: 2008-12-22 16:36:52 +0000 (Mon, 22 Dec 2008)
New Revision: 5276

Modified:
   DBIx-Class/0.08/branches/result_source_sqlt_deploy_hook/lib/DBIx/Class/ResultSource.pm
Log:
Fix hook dispatch to result_class's sqlt_deploy_hook

Modified: DBIx-Class/0.08/branches/result_source_sqlt_deploy_hook/lib/DBIx/Class/ResultSource.pm
===================================================================
--- DBIx-Class/0.08/branches/result_source_sqlt_deploy_hook/lib/DBIx/Class/ResultSource.pm	2008-12-22 02:17:45 UTC (rev 5275)
+++ DBIx-Class/0.08/branches/result_source_sqlt_deploy_hook/lib/DBIx/Class/ResultSource.pm	2008-12-22 16:36:52 UTC (rev 5276)
@@ -1164,7 +1164,7 @@
 
   my $class = $self->result_class;
 
-  if ($class and $class->result_class->can('sqlt_deploy_hook')) {
+  if ($class and $class->can('sqlt_deploy_hook')) {
     $class->sqlt_deploy_hook(@_);
   }
 }