don't sort the primary columns because order matters for indexes

diff --git a/lib/SQL/Translator/Parser/DBIx/Class.pm b/lib/SQL/Translator/Parser/DBIx/Class.pm
index 2aa5098..dcf8bba 100644 (file)
--- a/lib/SQL/Translator/Parser/DBIx/Class.pm
+++ b/lib/SQL/Translator/Parser/DBIx/Class.pm
@@ -217,7 +217,7 @@ sub parse {
                 
                 # 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)) {