[Bast-commits] r8332 - DBIx-Class/0.08/branches/no_duplicate_indexes_for_pk_cols/lib/SQL/Translator/Parser/DBIx

[abraxxa at dev.catalyst.perl.org]

Author: abraxxa
Date: 2010-01-15 18:44:04 +0000 (Fri, 15 Jan 2010)
New Revision: 8332

Modified:
   DBIx-Class/0.08/branches/no_duplicate_indexes_for_pk_cols/lib/SQL/Translator/Parser/DBIx/Class.pm
Log:
don't sort the primary columns because order matters for indexes


Modified: DBIx-Class/0.08/branches/no_duplicate_indexes_for_pk_cols/lib/SQL/Translator/Parser/DBIx/Class.pm
===================================================================
--- DBIx-Class/0.08/branches/no_duplicate_indexes_for_pk_cols/lib/SQL/Translator/Parser/DBIx/Class.pm	2010-01-15 18:32:16 UTC (rev 8331)
+++ DBIx-Class/0.08/branches/no_duplicate_indexes_for_pk_cols/lib/SQL/Translator/Parser/DBIx/Class.pm	2010-01-15 18:44:04 UTC (rev 8332)
@@ -217,7 +217,7 @@
                 
                 # Make sure we dont create additional indexes for the
                 # primary columns
-                my $pk_test = join("\x00", sort @primary);
+                my $pk_test = join("\x00", @primary);
                 next if $key_test eq $pk_test;
 
                 if (scalar(@keys)) {