[Bast-commits] r5632 - in DBIx-Class/0.08/trunk: . lib/DBIx/Class/Storage

[groditi at dev.catalyst.perl.org]

Author: groditi
Date: 2009-02-24 00:14:42 +0000 (Tue, 24 Feb 2009)
New Revision: 5632

Modified:
   DBIx-Class/0.08/trunk/Changes
   DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
Log:
correct args in wrong order in deplo_statements

Modified: DBIx-Class/0.08/trunk/Changes
===================================================================
--- DBIx-Class/0.08/trunk/Changes	2009-02-23 20:27:07 UTC (rev 5631)
+++ DBIx-Class/0.08/trunk/Changes	2009-02-24 00:14:42 UTC (rev 5632)
@@ -14,6 +14,8 @@
           possible. See the Cookbook for details. (robkinyon, michaelr)
         - Massive rewrite of Ordered to properly handle position constraints and
           to make it more matpath-friendly
+        - deploy_statements called ddl_filename with the $version and $dir arguments
+          in the wrong order. (groditi)
 
 0.08099_06 2009-01-23 07:30:00 (UTC)
         - Allow a scalarref to be supplied to the 'from' resultset attribute

Modified: DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm
===================================================================
--- DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2009-02-23 20:27:07 UTC (rev 5631)
+++ DBIx-Class/0.08/trunk/lib/DBIx/Class/Storage/DBI.pm	2009-02-24 00:14:42 UTC (rev 5632)
@@ -1775,7 +1775,7 @@
   $type ||= $self->sqlt_type;
   $version ||= $schema->schema_version || '1.x';
   $dir ||= './';
-  my $filename = $schema->ddl_filename($type, $dir, $version);
+  my $filename = $schema->ddl_filename($type, $version, $dir);
   if(-f $filename)
   {
       my $file;