[Bast-commits] r4035 - trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI

[ilmari at dev.catalyst.perl.org]

Author: ilmari
Date: 2008-02-05 16:32:20 +0000 (Tue, 05 Feb 2008)
New Revision: 4035

Modified:
   trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
Log:
Make sure to get the constraint columns in the right order.


Modified: trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm
===================================================================
--- trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm	2008-02-05 16:00:04 UTC (rev 4034)
+++ trunk/DBIx-Class-Schema-Loader/lib/DBIx/Class/Schema/Loader/DBI/Oracle.pm	2008-02-05 16:32:20 UTC (rev 4035)
@@ -83,6 +83,7 @@
             SELECT constraint_name, ucc.column_name
             FROM user_constraints JOIN user_cons_columns ucc USING (constraint_name)
             WHERE ucc.table_name=? AND constraint_type='U'
+            ORDER BY ucc.position
         },
         {}, 1);