From: Alexander Hartmaier <abraxxa@cpan.org>
Date: Fri, 15 Jan 2010 18:44:04 +0000 (+0000)
Subject: don't sort the primary columns because order matters for indexes
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9597a7e20c45a00ebcf1520a4dd9067fc1034841;p=dbsrgits%2FDBIx-Class-Historic.git

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
--- 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)) {