From: Justin Hunter <justin.d.hunter@gmail.com>
Date: Wed, 27 Jan 2010 07:20:19 +0000 (-0800)
Subject: remove some sorts
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f9e599f2ac4e70191d630b4afb51c84683a02208;p=dbsrgits%2FSQL-Translator-2.0-ish.git

remove some sorts
---

diff --git a/lib/SQL/Translator/Producer/XML.pm b/lib/SQL/Translator/Producer/XML.pm
index 93951f4..128d582 100644
--- a/lib/SQL/Translator/Producer/XML.pm
+++ b/lib/SQL/Translator/Producer/XML.pm
@@ -86,12 +86,12 @@ method produce {
         #
         xml_obj_children( $xml, $table,
             { tag   => 'constraint',
-#            methods => [qw/
-#                name type fields reference_table reference_fields
-#                on_delete on_update match_type expression options deferrable
-#                extra
-#            /],
-             methods => [qw/name type expression options deferrable extra/], }
+            methods => [qw/
+                name type fields reference_table reference_fields
+                on_delete on_update match_type expression options deferrable
+                extra
+            /], }
+#             methods => [qw/name type expression options deferrable extra/], }
         );
 
         #
@@ -219,7 +219,7 @@ method xml_obj($xml: $obj, HashRef $args?) {
     while ( my ($name,$val) = splice @tags,0,2 ) {
         if ( ref $val eq 'HASH' ) {
              $xml->emptyTag( [ $Namespace => $name ],
-                 map { ($_, $val->{$_}) } sort keys %$val );
+                 map { ($_, $val->{$_}) } keys %$val ); ### SORT
         }
         else {
             $xml->dataElement( [ $Namespace => $name ], $val );